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=. 26MEGABYTES — 
i $4995. | 


Sud hy §-100 microcomputer systems can easily handle 100 million 
byfes. Because Morrow Designs™ now offers the first 26 megabyte hard disk 
memory for S-100 systems—the DISCUS M26™ Hard Disk System. 
; Ithas 26 megabytes of useable memory (29 megabytes 
unformatted). And it's expandable to 104 megabytes. 
The DISCUS M26™ system is delivered complete— 
026 megabyte hard disk drive, controller, cables and operating system for 
pst ‘$4995. Up fo three additional drives can be added, $4495 apiece. * 
The DISCUS M26™ system features the Shugart SA4008 
\Winchester-type sealed media hard disk drive, ina handsome metal cabine 
‘with fan and power supply. f 
j The single-board S-100 controller incorporates intell- 
gence to supervise all data transfers, communicating with the CPU via 
three 1/0 ports (command, status, and data). The controller has the ability to 
generate interrupts at the completion of each command to increase system 
throughput. There is a 512 byte sector buffer on-board. And each sector canbe 
individually write-protected for data base security. ; 
t The operating system furnished with DISCUS M26™ 
systems is the widely accepted CP/M* 2.0. . 
See the biggest, most cost-efficient memory ever intr¢ 
_ duced for S-100 systems, now at your local computer shop. If unavailable r i @ MORROW DESIGNS™ 
* Jocally, write Morrow Designs] 5221 Central Avenue, Richmond, CA Bee Th. = 
a call (415) 524-2101, weekdays 10-5 Pacific Time. inker 
“CP/M is a frademark of Digital Research. 
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Editor’s Page 
by Sol Libes 


The S-100 Bus: Past, Present 


And Future 


Part Il 


This is the second, and concluding 
article, analyzing the S-100 computer 
systems picture. The first part, which 
appeared in issue 3 covered the 
history of the S-100 bus systems. This 
article discusses its present status, and 
what I believe to be its future 
direction. 

S-100 bus-based systems have been 
in manufacture now for over five 
years. The life span of the bus is the 
longest of any of the personal com- 
puter systems—over twice as long as 
that of the TRS-80, PET, and Apple 
computers. Moreover, there are more 
S-100 systems in operation than there 
are TRS-80, PET, and Apple com- 
puters; I would estimate that there are 
presently over 200,000 installed S-100 
computer systems. 

Furthermore, the dominance of the 
microcomputer field by S-100 systems 
will increase, since Radio Shack plans 
to stop production on the TRS-80, 
Model I before the end of the year. 
S-100’s, I predict, will continue to be 
manufactured for a long time to come. 

I have heard several people say, 
“$-100 is dead,” and I have even seen 
statements like this in print. The ar- 
ticles that contained this statement 
usually included other erroneous 
statements as well. This misbelief is 
generally based on the fact that five 
$-100 manufacturers closed their 
doors in 1978-79 (although two subse- 
quently opened again); however, the 
early demise of these companies was a 
result of mismanagement, not of their 
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use of the S-100 bus. The fact is that 
during 1979, five new manufacturers 
of S-100 mainframes entered the 
market; so far this year, there are four 
new S-100 mainframe makers. I last 
counted a total of 19 S-100 mainframe 
manufacturers, over 60 manufac- 
turers of plug-in boards, and a stag- 
gering 160 suppliers of software for 
S-100 systems. 

Since the number of manufacturers 
of S-100 products far exceed the 
number of manufacturers of products 
for TRS-80, Apple and PET, it is ob- 
vious that the gross S-100 business is 
greater. 

The fact is, for sophisticated system 
development work, or for business or 
scientific applications, S-100 based 
systems are the only systems offering 
the necessary power and features. 
Furthermore, they provide these addi- 
tional features at a cost that is com- 
pétitive with the less powerful TRS-80, 
etc., systems. For example, try shop- 
ping for a word processing system to 
run a good word processor software 
package (e.g., WordStar), and you will 
find that an S-100 system is less expen- 
sive than a TRS-80 Model II (you can- 
not run WordStar on a Model J). 

But, most importantly, S-100 based 
systems offer power, features, and 
flexibility that are just not available on 
most other personal systems. To be 
specific: 
® More software is available. There 

are several times more high-level 

languages, operating systems, and 


applications packages for S-100 bas- 
ed systems than there are for any 
other system. Languages such as 
Basic, Fortran, Pascal, Cobol, APL, 
Algol, Lisp, C, and many more. 


= There is greater computer power 


capability with the S-100. What 
other system has direct addressing 
of up to 16 M bytes of memory (24 
address lines) and 64K input/output 
ports (16 address lines), up to eleven 
vectored interrupt lines, up to six- 
teen masters on the bus (with priori- 
ty), up to twenty-three plug-in slots 
on the motherboard, up to 10 MHz 
clock on the bus, plug-in operator 
front panel, and more? 

® The S-100 bus is now standardized 
by the Institute of Electrical and 
Electronic Engineers (IEEE), assur- 
ing conformity among manufac- 
turers. The only other standardized 
bus is the Intel Multibus, which is 
less powerful and more expensive 
than the S-100. 


= The modularity of the S-100 system 


assures that these systems can be 
upgraded with the changing state of 
the art. For example, there are 
owners of five-year-old Altairs who 
have installed 16-bit CPU’s into their 
systems with just some plug-in 
board changes. 


Today, the S-100 computer bus is a 
mature, refined system that has evolv- 


S-100 MICROSYSTEMS 


Hard disk and hardtape control 


Up to 2400 Megabytes of 
hard disk control for the 
S-100 bus. 


Konan’s SMC-100 interfaces S-100 bus micro 
computers with all hard disk drives having the 
Industry Standard SMD Interface. It is available 
with software drivers for most popular operating 
systems. Each SMC-100 controls up to 4 drives 
ranging from 8 to 600 megabytes per drive, 
including most “Winchester” drives -- such as 
Kennedy, Control Data, Fujitsu, Calcomp, 
Microdata, Memorex, Ampex, and others. 

SMC-100 is a sophisticated, reliable system 
for transferring data at fast 6 to 10 megahertz 
rates with onboard sector buffering, sector 
interleaving, and DMA. 

SMC-100’s low cost-per-megabyte 
advanced technology keeps your micro computer 
system micro-priced. Excellent quantity discounts 
are available. 


Konan’s HARDTAPE™ 
subsystem...very low cost 
tape and/or hard disk 
Winchester backup and more. 


Konan‘s new DAT-100 Single Board Controller 
interfaces with a 17/2 megabyte (unformatted) 
cartridge tape drive as well as the Marksman 
Winchester disk drive by Century Data. 

The DAT-100 “hardtape” system is the only 
logical way to provide backup for “Winchester” 
type hard disk systems. (Yields complete hard 
disk backup with data verification in 20-25 
minutes. ) 


Konan’s HARDTAPE™ subsystem is 
available off the shelf as a complete tape and 
disk mass storage system or an inexpensive tape 
and/or disk subsystem. 


Konan controllers and 
subsystems support most 
popular software packages 
including FAMOS”, CP/M® 
version 2.X, and MP/M. 


Konan, first (and still the leader) in high- 
reliability tape and disk mass storage devices, 
offers OEM's, dealers and other users continuing 
diagnostic support and strong warranties. Usual 
delivery is off the shelf to 30 days with complete 
subsystems on hand for immediate delivery. 


Call Konan’s TOLL FREE ORDER LINE today: 
800-528-4563 


Or write to Bob L. Gramley 
Konan Corporation, 1448 N. 27th Avenue 
Phoenix, AZ 85009. TWX/TELEX 9109511552 


CP/M® is a registered trade name of Digital Research, 
FAMOS' js a trade name of MVT Micro Computer Systems. 
HARDTAPE™ is a trade name of Konan Corporation. 


R2 if ©... The $-100 ROM, 
RAM &G I/O Board 


ELECTRONIC CONTROL TECHNOLOGY'’s R?I/O is an 
S-100 Bus 1/O Board with 3 Serial I/O Ports (UART’s), 1 
Parallel I/O Port, 4 Status Ports, 2K of ROM with Monitor 
Program and 2K of Static RAM. The R?I/O provides a conven- 
ient means of interfacing several I/O devices, such as —- CRT 
terminals, line printers, modems or other devices, to an S-100 
Bus Microcomputer or dedicated controller. It also provides for 
convenient Microcomputer system control from a terminal 
keyboard with the 8080 Apple ROM monitor containing 26 
Executive Commands and 1/O routines. It can be used in 
dedicated control applications to produce a system with as few 
as two boards, since the R?I/O contains ROM, RAM and |/O. 
The standard configuration has the Monitor ROM located at 
FOOO Hex with the RAM at F800 Hex and the I/O occupies the 
first block of 8 ports. Jumper areas provide flexibility to change 
these locations, within reasun, as well as allow the use of 


¢S-100 BUS = « 3 Serial I/O Ports ROM's other than the 2708 (e.g. 2716 or similar 24 pin de- 
e 2K ROM e 1 Parallel I/O Port vices). Baud rates are individually selectable from 75 to 9600. 
e 2K RAM e 4 Status Ports Voltage levels of the Serial I/O Ports are RS-232. 


e ROM Monitor (Operating System) 


8080 APPLE MONITOR 


OORT LD § Mee COMMANDS 
R21/0 A —Assign 1/0 

ROM, RAM & I/O B —Branch to user routine A-Z 
: C —Undefined 


D —Display memory on console in Hex 
E —End of file tag for Hex dumps 

F —Fill memory with a constant 
G-—GOTO an address with breakpoints 
H —Hex math sum & difference 

| —User defined 

J —Non-destructive memory test 

K —User defined 

L -Load a binary format file 

M-—Move memory block to another 


address 
eas N —Nulls leader/trailer 
MONITOR 0 —User defined 
(OPERATING P —Put ASCII into memory 
SYSTEM) Q —Query 1/0 ports: QI (N)-read 1/0; 


QO(N,V)-send 1/0 
R —Read a Hex file with checksum 
S —Substitute/examine memory in Hex 
T —Types-the contents of memory in 
ASCII equivalent 
U —Unload memory in Binary format 
V -Verify memory block against another 
memory block 
W-Write a checksummed Hex file 
X —Examine/modify CPU registers 
Y -‘Yes there’ search for ‘N’ Bytes 
in memory 
Z -‘Z END’ address of last R/W memory 
location 


Specializing in Quality Microcomputer Hardware 
Building Blocks for Microcomputer Systems, Control and Test Equipment 
Card Cages, Power Supplies, Mainframes, CPU’s, Memory, 1/O 


ELECTRONIC CONTROL TECHNOLOGY _— (201) 686-8030 


763 Ramsey Ave., Hillside, N.J. 07205 


_, At lintersystems, 
dump” is an instruction. 


Not a way of life. 


(Or, when you're ready for IEEE S-100, will your 
computer be ready for you?) 


== 


We're about to be gadflies again. 

While everyone’s been busy 
trying to convince you that large 
buses housed in strong metal 
boxes will guarantee versatility 
and ward off obsolescence, we've 
been busy with something better. 
Solving the real problem with the 
first line of computer products 
built from the ground up to con- 
form to the new IEEE S-100 Bus 
Standard. Offering you extra ver- 
satility in 8-bit applications today. 
And a full 16 bits tomorrow. 

We call our new line Series 
II™ And even if you don’t need the 
full 24-bit address for up to 16 
megabytes (!) of memory right 
now, they’re something to think 
about. Because of all the perform- 


Sot: 


ance, flexibility and economy 
they offer. Whether you’re looking 
at a new mainframe, expanding 
your present one or upgrading 
your system with an eye to the 
future. (Series Il boards are com- 
patible with most existing S-100 
systems and all IEEE S-100 Stan- 
dard cards as other manufacturers 
get around to building them.) 
Consider some of the fea- 
tures: Reliable operation to 4MHz 
and beyond. Full compatibility 
with 8- and 16-bit CPUs, pe- 
ripherals and other devices. Eight 
levels of prioritized interrupts. Up 
to 16 individually-addressable 
DMA devices, with IEEE Standard 
overlapped operation. User-selec- 
table functions addressed by DIP- 
switch or jumpers, eliminating sol- 
dering. And that’s just for openers. 
The best part is that all this 
heady stuff is available now! In 
our advanced processor—a full 
IEEE Bus Master featuring Memory 
Map™ addressing to a full mega- 
byte. Our fast, flexible 16K Static 
RAM and 64K Dynamic RAM 
boards. An incredibly versatile and 


economical 2-serial, 4-parallel 
Multiple 1/O board. 8-bit A/D-D/A 
converter. Our Double-Density 
High-Speed Disk Controller. And 
what is undoubtedly the most flex- 
ible front panel in the business. 
Everything you need for a com- 
plete IEEE S-100 system. Available 
separately, or all together in our 
new DPS-1 Mainframe! 

Whatever your needs, why 
dump your money into obsolete 
products labelled “IEEE timing 
compatible” or other words peo- 
ple use to make up for a lack of 
product. See the future now, at 
your Intersystems dealer or call/ 
write for our new catalog. We'll 
tell you all about Series Il and the 
new IEEE S-100 Bus we helped 
pioneer. Because it doesn’t make 
sense to buy yesterday’s products 
when tomorrow’s are already here. 


NY ™M 
LonierMsyss(iennnss 
Ithaca Intersystems Inc., 
1650 Hanshaw Road/PO. Box 91, 


Ithaca, NY 14850 
607-257-0190/TWX: 510 255 4346 


No.14: 


Take a byte. 


Software for most popular 8080/Z80* computer disk systems including 


NORTH STAR, iCOM, MICROPOLIS, DYNABYTE DB8/2 & DB8/4, EXIDY SORCERER, SD SYSTEMS, ALTAIR, 
VECTOR MZ, MECA, 8" IBM, HEATH H17 & H89, HELIOS, IMSAI VDP42 & 44, REX, NYLAC, INTERTEC SUPER- BRAIN, 
MODEL | and MODEL i, ALTOS, OHIO SCIENTIFIC, DIGI-LOG, KONTRON PSI-80, 


VISTA V80 and V200, TRS-80* M 


IMS 5000 diskette formats and CSSN BACKUP cartridge tapes. 


CP/M” VERSION 2 FOR TRS-80 MODEL II NOW AVAILABLE 


Alone 
CP/M* FLOPPY DISK OPERATING SYSTEM — Digital 
Research's operating system configured for many 
popular micro-computers and disk systems 


oO 


System Version Price 
North Star Single Density ........1.4 145/25 v 
North Star Double Density - 21.4... 145/25 
North Star Double/Quad ... +2.x....170/25 
iCOM Micro-Disk 2411 .. 14... 145/25 
iCOM 3712 1.4 170/25 v* 
iCOM 3812 . 1.4... .170/25 * 
Mits 3202/Altair 8800 . 1.4... 145/25 
Heath H8 + HI7 . 21.4... 145/25 @ 
Heath H89 .. 1.4....145/25 
Heath H89 by Magnoiia -1.4.., 250/25) 
TRS-80 Model | . 1.4... .145/25 @ 
TRS-80 Model II a . «2.x. ...170/25 
TRS-80 Model I + Corvus . 2x... 250/25 
Processor Technology Helios Il ..1.4....145/25 
Cromemco System 3 11.4....145/25 
Intel MOS Single Density - 1.4... 145/25 
Intel MDS Single Density 22%... 970/25 
Micropolis Mod | 11.6, .. 145/25 ¥ 
Micropolis Mod I 1.4....145/25v 


The following configurations are scheduled for re- 
lease soon: 

Apple I .2 
North Star Double/Quad + Corvus 
North Star Horizon HD-1 .... 

Ohio Scientific C3 : 

Ohio Scientific C3-C 
Micropolis Mod Il, 

Mostek MDX STD Bus System . 
ICOM 3812 ane 
iCOM 4511/Pertec 03000 . 375/25 * + 
Durango F-85 . 170/25 
Software consists of the operating system, text edi- 
tor, assembler, debugger and other utilities for file 
management and system maintenance. Complete set 
of Digital Research's documentation and additional 
implementation notes included. Systems marked * 
and ** include firmware on 2708 and 2716. Systems 
marked + include 5440 media charge. Systems 
marked @ require the special @ versions of software 
in this catalog. Systems marked v have minor variants 
available to suit console interface of system. Call or 
write for full list of options. } includes hardware addi- 
tion to allow our standard versions of software to run 
under it. 


™ Z80 DEVELOPMENT PACKAGE — Consists of: (1) disk 

®@ file line editor, with global inter and intra-line facili- 
ties; (2) Z80 relocating assembler, Zilog/Mostek mne- 
monics, conditional assembly and cross reference 
table capabilities; (3) linking loader progucln oes 
lute Intel hex disk file .... $05/s: 


| ZOT — Z60 Monitor Debugger to break ‘ati examine 
®@ registers with standard Zilog/Mostek mnemonic dis- 
assembly displays. $35 when ordered with 280 Devel- 
opment Package P $50/$10 


0 XASM-68 — Non-macro cree etseribler with nested 
conditionals and full range of pseudo operations. As- 
sembles from standard Motorola MC6800 mnemonics 
to Inte! hex .. A . $200/$25 


(CD XASM-65 — As XASM-68| for Mos Technology MCS- 
6500 series mnemonics . ..............- $200/$25 


(© DISTEL — Disk based disassembler to Intel 8080 or 
TDL/Xitan 280 source code, listing and cross refer- 
ence files, Intel or TDL/Xitan pseudo ops optional, 
Runs on 8080 '5/$10 


OC DISILOG — As DISTEL to Zilog/Mostek mnemonic 
@ files. Runs on Z80 only .... $65/$10 


1 SMAL/80 Structured Macro Assembler Language — 
@ Package of powerful general purpose text macro 
processor and SMAL structured language compiler. 
SMAL is an assembler language with IF-THEN-ELSE, 
LOR DEER CURE, DO-END, BEGIN-END con- 
structs -$75/$15 


© tiny C — Interactive interpretive system for teaching 
@® structured programming techniques. Manual includes 
full source listings ,$105/$50 


BDS C COMPILER — Supports most features of lan- 
guage, including Structures, Arrays, Pointers, recur- 
© sive function evaluation, overlays. Includes linking 
loader, ubrary manager, and library containing gen- 


. 350/25 
250/25 


eral put ie, file I/O, and floating point functions. 
Lacks ializers, statics, floats and longs. Docu- 
’ 771 mentation includes "The C PROGRAMMING LAN- 


GUAGE" by Kernighan and Ritchie ..... . .$125/$20 


C) WHITESMITHS C COMPILER — The ultimate in sys- 

© tems software tools. Produces faster code than a 

@ pseudo-code Pascal with more extensive facilities. 
Contorms to the full UNIX* Version 7 C language, de- 
scribed by Kernighan and Ritchi 
able over 75 functions for performing 
manipulation and storage allocation 
Microsoft REL files. Requires 60K CP/M . 


Linkable i 
. .$630/$30 


Prices and specifications subject to change without notice. 
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MICROSOFT 


™ BASIC-80 — Disk Extended BASIC, ANSI compatible 
© with long variable names, WHILE/WEND, chaining. 
@ variable length file records . $325/$25 


£1 BASIC COMPILER — Language compatible with 
© BASIC-80 and 3-10 times faster execution. Produces 
» Standard Microsoft relocatable binary output. In- 
cludes MACRO-80. Also linkable to FORTRAN-80 or 
COBOL-80 code modules .$350/$25 


(0 FORTRAN-80 — ANSI 66 (except for COMPLEX) plus 
@® many extensions. Includes relocatable object com- 
@ piler, linking loader, library with Lied aah Also in- 

~ cludes MACRO-80 (see below) . $425/$25 


[] COBOL-80 — Level 1 ANSI '74 standard coBoL plus 

most of Level 2. Full sequential, relative, and in- 
@ dexed file support with variable file names, STRING, 
UNSTRING, COMPUTE, VARYING/UNTIL, EXTEND, 
CALL, COPY, SEARCH, 3-dimensional arrays, com- 
pound and abbreviated conditions, nested IF. Power- 
ful interactive screen-handling extensions. Includes 
compatible assembler, linking loader, and relocat- 
able library manager as Sener under MACRO-80 
ovecccennecneercentestecvaucssasaesree $700/$25 


(1 MACRO-80 — 8080/Z80 Macro Assembler. Intel and 
Zilog mnemonics supported. Relocatable linkable 
@ Output. Loader, Library Manager and Cross Refer- 
ence List utilities included . - .$149/$15 


| XMACRO-86 — 8086 cross assembler. All Macro and 
© utility features of MACRO-80 package. Mnemonics 
slightly modified from Intel ASM86. seared caer? data 
sheet available ............0+-0-ee eee ee $275/$25 


© EDIT-80 — Very fast random access text editor for text 
© with or without line numbers. Global and intra-line 
commands supported. File compare utility included. 


(©) PASCAL/M* — Compiles enhanced Standard Pascal 
to compressed efficient Pcode. Totally CP/M com- 


ay) patible Random access files. Both 16 and 32-bit Inte- 


eS 


gers. Runtime error recovery. Convenient STRINGs. 
71 OTHERWISE clause on CASE. Comprehensive man- 
ual (90 pp, indexed). SEGMENT provides overlay 
structure. INPORT, OUTPORT and untyped files for 
arbitrary I/O. Requires 56K CP/M $175/$20 


1 PASCAL/Z — 280 native code PASCAL compiler. Pro- 
duces optimized, ROMabie re-entrant code. All inter- 
facing to CP/M is through the support library. The 
package includes compiler, relocating assembler and 
linker, and source for all library modules. Variant 
records, strings and direct I/O are supported. Re- 
quires 56K CP/M and Z80 CPU . $395/$25 


© PASCAL/MT — Subset of standard PASCAL. Gener- 
@ ates ROMable 8080 machine code. Symbolic debug- 
ger included. Supports interrupt procedures, CP/M 
file /O and assembly language interface. Real vari- 
ables can be BCD, software floating point, or AMD 
9511 hardware floating point. Includes strings enu- 
merations and record data types. Manual explains 
BASIC to PASCAL conversion. Requires 32K. 

- $250/$30 


oO ALGOL-60— Powertul block-: structured language com- 
piler featuring economical run-time dynamic alloca- 
tion of memory. Very compact (24K total RAM) sys- 
tem implementing almost all Algol 60 report features 
plus many powerful extensions including string han- 
dling direct disk address \/O etc. _ Requires Z80 
CPU .. + -$199/$20 


( CBASIC-2 Disk Extended BASIC —1 Non-interactive 
®@ BASIC with pseudo-code compiler and run-time in- 
terpreter. Supports full file control, chaining, integer 
and extended precision variables, etc. . ‘$120/$15 


MICRO FOCUS 


O STANDARD CIS COBOL — ANSI '74 COBOL stand- 
@ ard compiler fully validated by U.S. Navy tests to 
@ ANSI level 1, Supports many features to level 2 in- 
cluding dynamic loading of COBOL modules and a 
full ISAM file facility. Also, program segmentation, 
interactive debug and powerful interactive extensions 
to support protected and unprotected CRT screen 
formatting from coEe programs used with any 
dumb terminal an ’ .$850/$50 


[ FORMS 2—CRT screen editor. Output is COBOL data 
© descriptions for copying into CIS COBOL programs 
Automatically creates a query and update program of 
indexed files using CRT protected and unprotected 
screen formats. No programming experience needed. 
et pol Program avecny compiled by STANDS cis 
COBO! . $200/$20 


eee hownpasiced, A 

EIDOS SYSTEMS, 

1) KISS — Keyed Index Sequential Search, Offers com- 

© plete Multi-Keyed Index Sequential and Direct Ac- 
cess file management. Includes built-in utility func- 
tions for 16 or 32 bit hmetic, string/integer conver- 
sion and string compare. Delivered as a relocatable 
linkable module in Microsoft format for use with 
FORTRAN-80 or COBOL-80, etc. . .$335/$23 


New lahore) 


Prices rettect distribution on @” single density di 
If a format is requested which requir dition: 

cl of $8. per ‘additional diskette. wi 
A surcharge of $25 will be added for software on CSSN 
format OC 300XL cartridges. Media charge for $440 disk 
is $100. 


All Lifeboat programs require CP/M, unless otherwise stated. 


Sofware 
with 
Mars 


‘Manuel 
Alone 
(© KBASIC — Microsoft Disk Extended BASIC version 
© 4.51 integrated by implementation of nine additional 
commands in language. Package ingludes KISS.REL 
as described above, and a sample mail list program 
85/$45 
To licensed users ‘of Microsoft BASIC-80 (BASIC) 
. .$435/$45 


(2 XYBASIC Interactive Process Control BASIC — Full 


disk BASIC features plus unique commands to han- 
dle bytes, rotate and shift. and to test and set bits. 
Available in integer and extended versions 
Interger ROMabie, ROM Squared and CP/M $295/$25 
Extended ROMable, ROM Squared and CP/M $395/$25 
Extended disk XYBASIC for CP/M ... $495/$25 
oe 6 ee ee es 9 es ee ee 
(OD RECLAIM — A utility to validate media under CP/M. 
Program tests a diskette or hard disk surface for 
6) errors, reserving the imperfections in invisible files, 
N 7Jand permitting continued usage of the remainder. 
fe Essential for any hard disk. Requires CP/M version 2. 
$80/$5 
1 BASIC UTILITY DISK — Consists of: (1) CRUNCH-14 
@ — Compacting utility to reduce the size and increase 
the speed of programs in Microsoft BASIC 4.51, 
BASIC-80 and TRS-80 BASIC. (2) DPFUN — Double 
precision subroutines for computing nineteen trans- 
cendental functions including square root, natural 
log, log base 10, sine. arc sine, hyperbolic sine, 
hyperbolic arc sine, etc. Furnished in source on 
diskette and documentation .. . .$50/$35 
(1 STRING/80 — Character string handling plus routines 
for direct CP/M BDOS calls from FORTRAN and other 
compatible Microsoft languages. The utility library 
contains routines that enable programs to chain to 
a COM file, retrieve command line parameters, and 
search file directories with full wild card facilities 
Supplied as linkable modules in Leashes format. 
dee ceenecncnnce . -$95/$20 
STRING/80 source code available iestetawie $295/NA 
THE STRING BIT — FORTRAN character string han- 
dling. Routines to find, fill, pack, move, separate, 
concatenate and compare character strings. This 
package completely eiuninates the problems asso- 
ciated with character string handling in FORTRAN. 


@®10 


Supplied with source ............. .$65/$15 
[1 VSORT — Versatile sort/merge system for fixed length 
@ records with fixed or variable length fields. VSORT 


can be used as a stand-alone package or loaded and 
called as a subroutine from CBASIC-2. When used as 
a subroutine, VSORT maximizes the use of buffer 
space by saving the TPA on disk and restoring it on 
completion of sorting. Records may be up to 255 
bytes long with a maximum of 5 fields. Upper/lower 
case translation and numeric fields meee: 

++. $175/$20 


[2 CrM/374X — Has full range of finelionn: to create or 
re-name an 18M 3741 volume, display directory infor- 
mation and edit the data set contents. Provides full 
file transfer facilities between 3741 volume data sets 
and CP/M files . » .$195/$10 


1 BSTAM — Utility to link one corapiter to another also 
@ equipped with BSTAM. Allows file transfers at full 
data speed (no conversion to hex), with CRC block 
control check for very reliable error detection and 
automatic retry. We use it! It's great! Full wildcard 
expansion to send *.COM, etc. 9600 baud with wire. 
300 baud with phone connection. Both ends need 
one. Standard and @ versions can talk to one another. 
. .$150/ 


(CO WHATSIT?* Interactive data-base system using as- 
sociative tags to retrieve information by subject 
Hashing and random access used for fast response. 
Requires CBASIC-2 .... $175/$25 


[ SELECTOR Ill-C2 — Data Base: Processor to create 
® and maintain multi Key data bases. Prints formatied 
t sorted reports with numerical summaries or mailing 
labels. Comes with sample applications, including 
Sales Activity, Inventory, Payables, Receivables, 
Check Register, and Client/Patient Appointments, etc, 
Requires CBASIC-2. Supplied in source . . .$295/$20 


} GLECTOR — General Ledger option to SELECTOR 
1I-C2. Interactive system provides for customized 
COA, Unique chart of transaction types insure proper 
double entry bookkeeping. Generates balance sheets, 
P&L statements and journals. Two year record allows 
for statement of changes in financial position report. 
Supplied in source. Requires SELECTOR IlI-C2. 
CBASIC-2 and 56K system .... . - .$350/$25 


1 CBS — Configurable Business System is a compre- 
t hensive set of programs for defining custom data files 
and application systems without using a program- 
ming language such as BASIC, FORTRAN, etc. Mul- 
tiple key fields for each data file are supported, Set-up 
program customizes system to user's CRT and printer. 
Provides fast and easy interactive data entry and 
retrieval with transaction processing. Report genera- 
tor program does complex calculations with stored 
and derived data, record selection with multiple cri- 
teria, and custom formats. Sample inventory and mail- 
ing list systems included. No support longuage te- 
quired .$295/$40 


Lifeboat Associates, 1651 Third Avenue, N.Y., N.Y. 10028 (212) 860-0300 Telex: 220501 


MICROPRO 


1 SUPER-SORT | — Sort, merge, extract utility as abso- 
© lute executable program or linkable module in Micro- 
solt format. Sorts fixed or variable records with data 
in binary, BCD, Packed Decimal, EBCOIC, ASCII, 
floating & fixed point, exponential, field justified, ete. 
Even variable number of fields per record! .$225/$25 


"| SUPER-SORT It — Above ay available as absolute pro- 
GC) Grant ORY co saeesiecsciasines cele .$175/$25 


SUPER- aone i —As I without SELECT/EXCLUDE 
125/$25 


|_| WORD-STAR — Menu driven visual word vc roeass ia 
@© system for use with standard terminals, Text format- 
ting performed on screen, Facilities for text paginate, 
page number, justify. center and underscore, User 
can print one document while simultaneously editing 
a second. Edit facilities include global search and 
replace. Read/Write to other text files, block move, 
etc. Requires CRT terminal with addressable cursor 
positioning $445/$40 
(1 WORD-STAR Customization Notes — For sophisticated 
users who do not have one of the many standard 
terminal or printer configurations in the distribution 
version of WORD-STAR ............---55 NA/S$95 


™ WORD-MASTER Text Editor —In one mode has super: 
© set of CP/M's ED commands including global search- 
ing and replacing, forwards and backwards in file in 
video mode, provides full screen editor for users with 
serial addressable-cursor terminal . $145/$25, 


() TEXTWRITER III — Text formatter to justify and pagi- 
nate letters and other documents. Special features 
include insertion of text during execution from other 
disk files or console, permitting recipe documents 
to be created from linked fragments on other ‘iles. 
Has facilities for sorted index, table of contents and 
footnote insertions. Ideal for contracts, manuals, etc 
Now oomnpalnale with pECOK I? Pencil* prepared files. 


Vow App pyobicdtiand 
BAS/C ae 


PEACHTREE SOFTWARE 


GENERAL LEDGER — Records details of all financial 
transactions. Generates a balance sheet and an in- 
come statement. Flexible and adaptable design for 
both small businesses and firms performing client 
writeup services. Produces reports as follows: Trial 
Balance, Transaction Registers, Balance Sheet, Prior 
Year Comparative Balance Sheet, Income Statement, 
Prior Year Comparative Income Statement and De- 
partment Income Statements. Interactive with other 
PEACHTREE accounting packages. Supplied in 
source code for Microsoft BASIC .$990/$30 


[ ACCOUNTS PAYABLE — Tracks current and aged 

payables and incorporates a check writing feature. 

t Maintains a complete vendor file with information on 
purchase orders and discount terms as well as active 
account status. Produces reports as follows: Open 
Voucher Report, Accounts Payable Aging Report and 
Cash Roquirements. Provides input to PEACHTREE 
General Ledger. Supeiiee in source code for Micro- 
soft BASIC . 


(2 ACCOUNTS RECEIVABLE — Generates invoice regis- 
© ter and complete monthly statements. Tracks current 
t and aged receivables. Maintains customer file includ- 
ing credit information and account status, The cur- 
rent status of any customer account is instantly avail- 
able. Produces reports as follows: Aged Accounts 
Receivable, Invoice Register, Payment and Adjust- 
ment Register and Customer Account Status Report 
Provides input to PEACHTREE General Ledger. Sup- 
plied in source code for Microsoft BASIC . .$990/$30 


1) PAYROLL — Prepares payroll for hourly, salaried ang 
© commissiored employees. Generates monthly, q 
+ terly and annual returns. Prepares employee W-2's. 
Includes tables for federal withholding and FICA as 
well as withholding for all 50 states plus up to 20 
cities from pre-computed or user generated tables. 
Will print checks, Payroll Register, Monthly Summary 
and Unemployment Tax Report. Provides input to 
PEACHTREE General Ledger. Supplied in soxce 
code for Microsoft BASIC . .$990/$30 


INVENTORY — Maintains detailed information on 
each inventory item including part number, de: 
tion, unit of measure, vendor and reorder dal 
activity and complete information on current item 
costs, pricing and sales. Produces reports as follows: 
Physical Inventory Worksheet, Inventory Price List, 
Departmental Summary Report, Inventory Status Re- 
The Reorder Report and the Period-to-Date and 
r-to-Date reports. Supplied in source code for 
. .$1190/$30 
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™Tne Software Supermarket is a trademark of Liteboat Associates 
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GRAHAM-DORIAN SOFTWARE SYSTEMS 


(1 GENERAL LEDGER — An on-line system; no batch- 
© ing is required. Entries to other GRAHAM-DORIAN 
@ accounting packages are automatically posted. User 
+ establishes customized C.O.A. Provides transaction 
register, record of journal entries, trial balances and 
monthly closings. Keeps 14 month history and pro- 
vides comparison of current year with previous year 
Requires CBASIC-2, Supplied in source .. .$995/$35 


[| ACCOUNTS PAYABLE — Maintains vendor list and 
© check register. Performs cash flow analysis. Flexible 
@ — writes checks to specific vendor for certain in- 
7 voices or can make partial payments. Automatically 
posts to GRAHAM-DORIAN General Ledger or runs as 
stand alone system. Requires CBASIC-2. Supplied in 
source . .$995/$35 


[1 ACCOUNTS RECEIVABLE — Creates trial balance re- 
© ports, prepares statements, ages accounts and rec- 
®@ ords invoices. Provides complete information describ- 
t ing customer payment activity. Receipts can be 
posted to different ledger accounts. Entries auto- 
matically update GRAHAM-DORIAN General Ledger 
or runs as stand alone system. Requires CBASIC-2 
Supplied in source * . $995/$35 


1 INVENTORY SYSTEM — Captures stock levels, costs, 
© sources, sales, ages, turnover, markup, etc. Trans- 
@ action information may be entered for reporting by 
1 salesperson type of sale, date of sale, etc. Reports 
available both for accounting and decision making 
Requires CBASIC-2. Supplied in source . . .$590/$35 


~) JOB COSTING — Designed for general contractors. 
a To be used interactively with other GRAHAM-DORIAN 
@ accounting packages for tracking and analysing ex- 
t penses User establishes customized cost categories 
and job phases. Permits comparison of actual versus 
estimated costs. Automatically updates GRAHAM- 
DORIAN General Ledger or runs as stand alone sys- 
tem. Requires CBASIC-2. Supplied in source $995/$35 


[] APARTMENT MANAGEMENT SYSTEM — Financial 
© management system for receipts and security de- 
® posits of apartment projects. Captures data on va 
t cancies, revenues, etc. for annual trend analysis. 
Daily report shows late rents, vacancy notices, va- 
cancies, income lost through vacancies, etc. Requires 
CBASIC-2. Supplied in source $590/$35 


[ CASH REGISTER — Maintains files on daily sales. 
© Files data by salesperson and item. Tracks sales, 
® over-rings, refunds, payouts and total net deposits. 
t Requires CBASIC-2. Supplied in source $590/$35 


(> POSTMASTER — A comprehensive package for mail 
@ list maintenance that is completely menu driven. 


Features include keyed record extraction and label 
production. A form letter program is included which 
provides neat letters on single sheet or continu- 
ate ous forms. Compatible with NAD files. Requires 


CBASIC-2 .$150/$15 


STRUCTURED SYSTEMS GROUP 


© GENERAL LEDGER — Interactive and flexible system 
1 providing proof and report outputs. Customization of 
COA created interactively. Multiple branch account- 
ing centers. Extensive checking performed at data 
entry for proof, COA correctness, etc. Journal entries 
may be batched prior to posting. Closing procedure 
automatically backs up input files. Now includes 
Statement of changes in Financial Position. Requires 
CBASIC-2 $1250/$25 


[™ AccouNTS RECEIVABLE — Open item system with 
t output for internal aged reports and customer-ori- 
ented statement and billing purposes. On-Line En- 
quiry permits information for Customer Service and 
edit departments. Interface to General Ledger pro- 
vided if both amet used. A ROCUNeS CBASIC-2. 
. .$1250/$25 


n ) ACCOUNTS PAYABLE — - Provides aged statements 
1 of accounts by vendor with check writing for selected 
invoices. Can be used alone or with General Ledger 
and/or with NAD. Requires CBASIC-2 $1250/$25 


T] PAYROLL — Flexible payroll system handles weekly, 
t bi-weekly, semi-monthly and monthly payroll periods. 
Tips, bonuses, re-imbursements, advances, sick pay. 
vacation pay. and compensation time are all part of 
the payroll records. Prints government required peri- 
odic reports and will post to multiple SSG General 
Ledger accounts. Rea speereicey and 54K of 
memory ( $1250/$25 


(> INVENTORY CONTROL SYSTEM — Performs control 
1 functions of adding and depleting stock items, add- 
ing new items and deleting old items, Tracks quantity 
of items on hand, on order and back-ordered. Op- 
tional hard copy audit trail is available. Reports in- 
clude Master Item List, Stock Activity, Stock Valua- 
tion and Re-order List. Requires CBASIC-2 $1250/$25 


(1 ANALYST — Customized data entry and reporting sys- 

1 tem, User specifies up to 75 data items per record 
Interactive data entry, retrieval, and update facility 
makes information management easy. Sophisticated 
report generator provides customized reports using 
selected records with multiple level break-points for 
summarization. Requires a disk sort utility such as 
QSORT, ore SORT or VSORT and CBASIC-2. 

neeseee $250/$15 


oO LETTERIGHT — ee to create, edit and type let- 
ters or other documents. Has facilities to enter, dis- 
play, delete and move text, with good video screen 
presentation. Designed to integrate with NAD for 
form fetter mailings. Requires CBASIC-2 . .$200/$25 


(NAD Name and Address selection system — Interac- 
tive mail list creation and maintenance program with 
output as full reports with reference data or restricted 
information for mail labels. Transfer system for ex- 
traction and transfer of selected records to create 
new files. Requires CBASIC-2 $100/$20 


1 Q@SoRT — Fast sort/merge program for files with fixed 
record length, variable field length information. Up to 
five ascending or Gascon neve, Full back-up of 
input files created . .$100/$20 


NEW! NEW! NEW! 
NEWSLETTER 
FROM LIFEBOAT 


* Latest Version 


Numbers List 
of Software 
Ss i 
© Update on te 
CP/M Users Group | | 


© The Great ZOSO Speaks f 
Out from Behind the Scenes 


$18 ppd. for 12 issues (U.S., Canada, 
Mexico) $40. elsewhere 

Send check to “Lifelines,” 1651 3rd Avenue, 
New York, N.Y. 10028 or use your V/SA or 
Mastercharge—call (212) 722-1700 


Copyright © 1980 Lifeboat Associates. No 
portion of this advertisement may be repro- 
duced without prior permission. 


S-100 MICROSYSTEMS 
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CONDIMENTS 


HEAD CLEANING DISKETTE —Cleans the drive Read’ 
Write head in 30 seconds Diskette absorbs loose 
oxide particles. fingerprints. and other foreign parti- 
cles that might hinder the performance of the drive 
head. Lasts at least 3 months with daily use. Specify 


5" or B” 
Single sided $20 each/$55 for 3 
Double sided $25 each/$65 for 3 


FLIPPY DISK KIT — Template and instructions to 
modily single sided 5%” diskettes for use of second 
side in single sided drives $12.50 


(7 FLOPPY SAVER — Protection for center holes of 5” 
and 8” floppy disks. Only 1 needed per diskette. Kit 
contains centering post, pressure tool and tough 
7 mit mylar teetering ange for 25 diskettes. 


Kt siesja.s vos $14.95 
5". Rings only eevinece STS 
BES I sure seie camer . $16.95 
8", Rings only . $8.95 


©. PASCAL USER MANUAL AND ) REPORT — By Sensor 
and Wirth. The standard textbook on the language 
Recommended for use by Pascal/Z, Pascal/M and 
Pascal/MT users . . -.. $10 


[> THE C PROGRAMMING LANGUAGE — By Kernighan 
and Ritchie. The standard textbook on the language. 
Recommended for use by BDS C, tiny C, and White: 
smiths C users o $12 


STRUCTURED MICROPROCESSOR PROGRAMMING 
— By the authors of SMAL/80. Covers structured pro- 
gramming. the 8080/8085 instruction set and the 
SMAL/80 language ............- 
) ACCOUNTS PAYABLE & ACCOUNTS RECEIVABLE— 
CBASIC — By Osborne/McGraw-Hill . $20 
| GENERAL LEDGER—CBASIC — By Osborpa/Mesraw 
Hill. ‘ $20 
2 LIFEBOAT DISK ‘COPYING SERVICE - Transter data 
or programs from one i bare to another at @ 
moderate cost . from $25 


ok kk kok ok 


*CP/M and MP/M are trademarks of Digital Research. 
Z80 is a trademark of Zilog, Inc. 

UNIX is a trademark of Bel! Laboratories. 

WHATSIT? is a trademark of Computer Headware. 
Electric Pencil is a trademark of Michael Shrayer 
Software. 

TRS-80 is a trademark of Tandy Corp. 

Pascal/M is a trademark of Sorcim. 
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tRecommended system configuration consists of 48K 
CP/M, 2 full size disk drives, 24 x 80 CRT and 132 
column printer. 


@Modified version available for use with CP/M as im- 
plemented on Heath and TRS-80 Model | computers. 


sf 


@User license agreement for this product must be 
signed and returned to Lifeboat Associates before 
shipment may be made. 


@® This product Includes/eXcludes the language manual 
recommended in Condiments. 


Ordering Information 


MEDIA FORMAT ORDERING CODES 
When ordering, please specify format code. 


Computer system Format Code Computer system Format Code 
Altair 8800 Disk See MITS ced RAIR Double Density RE 
Altos Research Machines 8” AY 
Apple + Microsoft SoftCard “as Research Machines $1” RH 
BASF System 7100 RO REX ‘* o3 
k Single Density a3 SD Systems 6” Ate 
Micropolis Mod It a2 SD Systems 5%” RS 
Ot Sorcerer See Exidy Sorcerer 
Q2 Spacebyte Al 
80 5 ae SuperBrain See Intertec SuperBrain 
Gromemco System 3 .....--- Art Tarbell. Pe . aA 
Ctomemco 220 RG TEL Sve" baa 
SSN BACKUP (tape) a] TE! 8" aie ar 
Delta F SpsaceasA? Thinkertoys “See Morrow Discus 
Digi-Log Microterm Il _.- RO TRS-80 Model | Sv" R2 
Digital Microsystems aye TRS-80 Mode! | + FEC RN 
Discus . See Morrow Discus TAS-B0 Mode! | + Micromation aa 
Durango F-85 AL TRS-80 Model | + Omikron Ye" RM 
Dynabyte DBB/2 Ri TRS-B0 Model | + Omikron 8” AT 
Dynabyte DBE/4 : At TAS-80 Model | + Shutfleboard 8” At, 
Exidy Sorcerer + Lifeboat CP/M a2 TAS-60 Model 1! 
Exidy Sorcerer + Exidy CP/M o4 VBP-40/42/44/80 See wa 
Heath H8 + H17/H27 vee PA Vector MZ 
Heath 89 + Lifeboat CP/M... ..P4 Versatile 5 See COS ‘iscionle 
Heath 89 + Magnolia CP/M ...... PT Vi 80 S¥4" Single Density 
Helios Il .....See Processor Technology ¥200 5Y%”" Double Density. .P6 
Horizon .... See North Star ith Z89 + Lifeboat CP/M Pa 
ICOM 241) Micro Floppy RS Zenith 289 + Magnolia CP/M Pr 
ICOM 3712 . weet 
iCOM 3812 . oe AT 


*Single-Side Single-Density disks are 
supplied tor users of al! Double-Density 
Double-Side 8" soft sector format 
ms 


ICOM 4511 5440 Cartridge CP/M 1.4 D1 
ICOM 4811 $440 Cartriage CP/M 2 202 
IMS 5000 RA 


iMsat VOP-40. **IMSAI formats are single density with 
IMSAI VDP-42 directory offset of zero. 

IMSAI VOP-44 

(meal SES The list of available formats is subject 


to change without notice In case of un- 
inty. call to contirm ihe format code 
for any particular equipment 


Meca 5%" 
Micromation (Except TRS- 60 below) Al* 
Micropotis Mod | qr 
Micropolis Mod II a2 
MITS 3200/3202 81 
Morrow Discus . at’ 
Mostek 4 AL 
MSD SY"... weaeaRG ’ 
North Star Single Density lal 4 
North Star Double/Quad P2 
Single Density Q3 
Micropolis Mod Ii o2 
Scientific C3 a3 
© PCC 2000 Ait 

ocessor Technology Helios " 62 
RAIR Single Density RO 


Lifeboat THE 


‘sogttine 
MARKET 


Prices F.O.B. New York. 
Shipping, handling and C.O.0. 
charges extra. 

Manual cost applicable against 
price of subsequent software 
purchase. 

The sale of each proprietary 
software package conveys @ 
license for use on one 

system only. 


Ed. Page, cont'd... 


ed into a professional-level computer 
system. It is, therefore, seeing increas- 
ed use in the industrial, commercial, 
scientific, and small business areas. 
Further, because of its low cost and 
the availability of much S-100 equip- 
ment in kit form, it is very popular 
with computer hobbyists. 

The S-100 computer picture will be 
one of steady, increased growth, albeit 
not the spectacular growth of 1975 
through 1977, when we saw sales 
double each year. S-100 will compete 
more and more intensely with mini- 
computer systems in the markets that, 
until now, were exclusively the do- 
main of the minicomputer. 

Because of their low cost/high 
power ratio, S-100 computer systems 
will continue to be popular in the hob- 
by and personal computer area. 
However, the consumer products 
manufacturers are moving into the 
personal computer market with new, 
very low-cost systems that, to a large 
extent, (will displace S-100 from these 
markets. 

$-100 systems will increase and im- 
prove in power, flexibility, speed, and 
reliability. This trend has already 
begun, as is evidenced by the new 
16-bit CPU cards and co-processor 
cards now being introduced. Today, 
typical memory size for an S-100 
system is in the 48K-64K range. The 
likelihood is that next year, it will be in 
the 64K-128K range, and in 1983, it 
will typically be 128-256K. 

Further, S-100 speed can be ex- 
pected to increase dramatically. To- 
day, most S-100 users employ 2-4MHz 
processor clocking. By 1981, this 
should typically be 6 MHz, and as high 
as 12MHz by 1983. Coupled with the 
more powerful 16-bit microproces- 
sors, this means that S-100 microcom- 
puters will take over the traditional 
minicomputer market by the mid 
1980's. & 


Attention S-100. 
Board Suppliers 


We are currently attempting to compile a 
listing of all S-100 board and mainframe 
suppliers and their products. If you are a 
manufacturer of S-100 products please send 
us a complete set of specification sheets on 
your products. We hope to publish this listing 
in the NOV/DEC issue of S-100 MICRO- 
SYSTEMS. 


LETTERS 
TO THE EDITOR 


Dear Editor: 

After reading the first two 
issues of “S-100 MICROSYS- 
TEMS” | was convinced that | 
had to subscribe. Here in Europe 
it is very difficult to get any 
information on computers ex- 
cept by reading American maga- 
zines. Even worse is the situa- 
tion if you want to talk to 
someone having another S-100 
System. My nearest “neighbor” 
lives 300 miles away. 

For those people running 
CP/M it must be a challenge to 
write some interesting articles 
and submit them on disk! You 
ought to list those formats you 
will be able to read! 

Will there be “classified” ad’s? 
Hoping to find other people in 
Europe to talk to, and with best 
wishes for the success of this 
publication. 

Here, in the north of Germany, 
we have a small club of thirty 
people meeting once a month for 
a sort of a “Computer Club.” 
There are 3 who use CP/M (one 
OSI, one Cromemco, and me) 
and 2 who use an S-100 System. 
| know of two professional 
installations of a Cromemco and 
one other CP/M installation with 
an AMD-Distributor. Besides 
that, | know of three other Ham’s 
in south-Germany using CP/M 
either on an ALTAIR or an 
ALTOS. 

Holger Petersen 
West Germany 


We will accept “classifieds” of 
a non-commercial nature free of 
charge. Authors can submit 
articles on either 8” CP/M disk 
or 5-1/4” North Star CP/M. Text 
should be entered using either 
“Wordstar” or “Electric Pencil.” 
We have an author's guide 
available. —Ed. 
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Dear Editor: 

| completely agree with you 
that the S-100 bus is the best 
supported computer bus around. 
In the first issue of your fine 
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magazine, you stated that there 
were seven different 8-bit pro- 
cessors already interfaced to the 
S-100 bus (8080, 8085, 8088, Z80 
6502, 6800, and 6809). | found 
this comment amusing because 
it is such an understatement. 
One interesting S-100 micro- 
processor you did not mention is 
the Signetics 2650. Several years 
ago, Victoria Micro Digital 
(whose address is 401 Dundee 
Street, Victoria, Texas 77901) 
implemented the Signetics 2650 
onto the S-100 bus in a very 
interesting and unusual way. 
Their product is called the 
Slavemaster 2650 Multiproces- 
sor, which consists of two 
separate S-100 cards. Each card 
is identical and each contains a 
2650 mpu, Kansas City cassette 
interface, serial |/O, 8 vectored 
interrupts, a_ real-time clock 
interrupt, keyboard interrupt, AC 
power-fail interrupt, and four 
2708 sockets. The two cards 
connect together via a 16-pin 
dip-plug ribbon cable. Either 
card can be jumpered to be the 
slave or the master. In multipro- 
cessor mode, both processors 
run at full speed. This is 
accomplished by synchronizing 
circuitry that causes the two 
processors to interleave S-100 
execute and fetch cycles. There 
are two memory modes. One is 
the common memory mode, 
where both processors can exe- 
cute anywhere in memory. The 
other is split-memory mode, 
where each processor is restrict- 
ed to Its own 32K block. In 
split-memory mode, there is a 
feature called the mailbox, 
which allows each processor to 
access a 1K block of the other 
processor's memory. | found 
these boards to be a fascinating 
addition to my S-100 collection. 
However, many people may not 
be interested in anything as 
exotic as multiprocessing and 
may find more useful the fact 
that with just one of these cards 
the user has a powerful stand- 
alone 2650 S-100 bus microcom- 
puter. The boards are of the high 
quality I’ve come to expect (and 
demand) of S-100 products. 


They're solder-masked, silk- 
screened, and has a gold-plated 
edge connector. Schematics are 
included and the write-up is 
pretty good. The blank boards 
(which is the way | normally 
prefer to buy S-100 boards) cost 
me $49 a piece. The price of a 
1-board kit is $139 and is $189 
assembled. | should add that 
because this product was de- 
signed a few years ago, it 
probably won’t work with dyna- 
mic memory. 


Another microprocessor you 
did not mention is the Motorola 
6802. MicroDaSys (pronounced 
micro-daisies, as in the flower) 
successfully interfaced this pro- 
cessor to the S-100 bus two 
years ago. Their address is 357 
South Lorraine Blvd, Los 
Angeles, CA 90020. | paid $50 for 
a blank board. The board is, of 
course, silk-screened, solder- 
masked, and gold-plated. How- 
ever, the documentation is only 
fair. This board has a number of 
features. It has five 2708/2716 
sockets, a serial interface, two 
bi-directional parallel ports. 1K 
bytes of static RAM, and a 
Kansas City cassette interface. 
The kit price is $200 and is $258 
assembled. For $40 more, this 
board is up-gradable to Moto- 
rola’s new 6809 processor. Be- 
cause this board was designed 
Before the establishment of the 
IEEE S-100 standards, it proba- 
bly will not work with dynamic 
memory. However, both the 
Victoria Micro Digital 2650 
Slavemaster and MicroDaSys 
6802/6809 will work fine with 
most of the static memory 
boards currently on the market. 

Kenneth Young 
Los Angeles, CA 
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Dear Editor: 

'd like to invite interested 
readers to attend upcoming 
meetings of the GREATER NY 
SOL USER'S GROUP. We meet 
at 7:30 on the second Monday of 
the month at the Westchester 
Federal Savings Bank, 67 Pur- 
chase Street, Rye, NY. 


In addition to a SOL, most of 
our members have North Star 
minifloppy drives, some have 
additional 8” drives. Our interest 
ranges from keeping the SOL 
alive, to software and peripheral 
equipment. Applications range 
from business related programs, 
to word processing and of 
course—games. 

We are an active club. If you 
know of anyone who would like 
to give a talk to the group we 
would be happy to discuss the 
details. 

Best wishes on the success of 
S-100 MICROSYSTEMS. 

Andre McHose 
Ridgefield, CT 


DPI DID! PVLPViaQv0_r 


Dear Editor: 


lam puzzled by the video display 
boards available for the S-100 bus. 
One can buy off the shelf any num- 
ber of fully assembled ready to run 
boards that implement all the func- 
tions of a CRT terminal--except for 
the keyboard. | am unable to locate 
anywhere a completely packaged, 
ready to use by the consumer, 
keyboard complete with cabling 


necessary to work with a video 
board. What keyboards there are 
seem to be custom assemblies by 
local computer stores acting as 
OEM's. Thus while the video board 
portion of a terminal is backed by 
factory service and warranty, such 
a board does not supply a terminal 
with the same convenience. | be- 
lieve this explains a great deal of 
the attractiveness of TRS-80, APPLE 
and similar systems. The practice 
of operating S-100 systems through 
standard serial data terminals is 
not just more expensive than using 
an integrated unit, it is logically 
unnecessary, a kind of kluge; the 
production of so many different 
video boards atests to that. The 
great popularity of the now discon- 
tinued SOL computer further illus- 
trates this. But what's the point of 
all the video boards if no keyboards 
are supplied with them? 


George Lyons 
Jersey City, NJ 
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NEW! TPM* for TRS-80 Model Il 
NEW! System/6 Package 


Computer Design Labs 


Z80 Disk Software 


We have acquired the rights to all TDL software (& hardware). TDL software has long had the reputation of being the best in the 
industry. Computer Design Labs will continue to maintain, evolve and add to this superior line of quality software. 


— Carl Galletti and Roger Amidon, owners. 


Software with Manual/Manual Alone 


All of the software below is available on any of the 
following media for operation with a Z80 CPU using 
the CP/M* or similar type disk operating system 
(such as our own TPM*). 


for TRS-80* CP/M (Model I or II) 

for 8” CP/M (soft sectored single density) 
for 514” CP/M (soft sectored single density) 
for 51”? North Star CP/M (single density) 
for 51” North Star CP/M (double density) 


BASIC I 

A powerful and fast Z80 Basic interpreter with EDIT, 
RENUMBER, TRACE, PRINT USING, assembly language 
subroutine CALL, LOADGO for “chaining, COPY to 
move text, EXCHANGE, KILL, LINE INPUT, error inter- 
cept, sequential file handling in both ASCII and binary 
formats, and much, much more. It runs ina little over 12 
K. An excellent choice for games since the precision 
was limited to 7 digits in order to make it one of the 
fastest around. $49.95/$15. 


BASIC Il 
Basic | but with 12 digit precision to make its power 
available to the business world with only a slight sacrifice 
in speed, Still runs faster than most other Basics (even 
those with much fess precision). $99.95/$15. 


BUSINESS BASIC 

The most powerful Basic for business applications. It 
adds to Basic II with random or sequential disk files in 
either fixed or variable record lengths, simultaneous 
access to multiple disk files, PRIVACY command to 
prohibit user access to source code, global editing, 
added math functions, and disk file maintenance capa- 
biiity without leaving Basic (list, rename, or delete). 
$179.95/$25. 


ZEDIT 
A character oriented text editor with 26 commands 
and “macro” capability for stringing multiple commands 
together. Included are a complete array of character 
move, add, delete, and display function. $49.95./$15. 


: ZTEL 

Z80 Text Editing Language - Not just a text editor. 
Actually a language which allows you to edit text and 
also write, save, and recall programs which manipulate 
text. Commands include conditional branching, subrou- 
tine calls, iteration, block move, expression evaluation, 
and much more. Contains 36 value registers and 10 text 
registers. Be creative! Manipulate text with commands 
you write using Ztel. $79.95/$25. 


TOP 
A Z80 Text Output Processor which will do text 
formatting for manuals, documents, and other word 
processing jobs. Works with any text editor. Does 
justification, page numbering and headings, spacing, 
centering, and much more! $79.9&/$25. 


MACRO I 

A macro assembler which will generate relocateable 
or absolute code for the 8080 or Z80 using standard 
Intel mnemonics plus TDL/Z80 extensions. Functions 
include 14 conditionals, 16 listing controls, 54 pseudo- 
ops, 11 arithmetic/logical operations, local and global 
symbols, chaining files, linking capability with optional 
linker, and recursive/reiterative macros. This assembler 
is so powerful you'll think it is doing all the work for you. It 
actually makes assembly language programming much 
less of an effort and more creative. $79.95/$20. 


MACRO II 
Expands upon Macro I's linking capability (which is 
useful but somewhat limited) thereby being able to take 
full advantage of the optional Linker. Also a time and 
date function has been added and the listing capability 
improved. $99.95/$25. 


LINKER 

How many times have you written the same subroutine 
in each new program? Top notch professional pro- 
grammers compile a library of these subroutines and 
use a Linker to tie them together at assembly time. 
Development time is thus drastically reduced and 
becomes comparable to writing ina high level language 
but with all the speed of assembly language. So, get the 
new CDL Linker and start writing programs ina fraction 
of the time it took before. Linker is compatible with 
Macro | & II as well as TDL/Xitan assemblers version 2.0 
or later. $79.95/$20. 
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DEBUG! 

Many programmers give up on writing in assembly 
language even though they know their programs would 
be faster and more powerful. To them assembly language 
seems difficult to understand and follow, as well as 
being a nightmare to debug. Well, not with proper tools 
like Debug |. With Debug! you can easily follow the flow 
of any Z80 or 8080 program. Trace the program one 
step at a time or 10 steps or whatever you like. At each 
step you will be able to see the instruction executed and 
what it did. If desired, modifications can then be made 
before continuing. It's all under your control. You can 
even skip displaying a subroutine call and up to seven 
breakpoints can be set during execution. Use of Debug! 
can pay foritself many times over by saving you valuable 
debugging time. $79.95/$20. 


DEBUG I! 

This is an expanded debugger which has all of the 
features of Debug! plus many more. You can “trap” (i.e. 
trace a program until a set of register, flag, and/or 
memory conditions occur). Also, instructions may be 
entered and executed immediately. This makes it easy 
to learn new instructions by examining registers/memory 
before andafter. Anda RADIX function allows changing 
between ASCII, binary, decimal, hex, octal, signed 
decimal, or split octal. All these features and more add 
up to give you a very powerful development tool. Both 
Debug! and II must run on aZ80 but will debug both Z80 
and 8080 code. $99.95/$20. 


ZAPPLE 
A Z80 executive and debug monitor. Capable of 
search, ASCII put and display, read and write to |/0 
ports, hex math, breakpoint, execute, move, fill, display, 
read and write in Intel or binary format tape, and more! 
on disk $34.95/$15. 


APPLE 
8080 version of Zapple $34.95/$15. 


NEW! TPM nowavailable for TRS-80 Model 


WW! 
TPM* 

A NEW Z80 disk operation system! This is not CP/M*. 
It's better! You can still run any program which runs with 
CP/M* but unlike CP/M* this operating system was 
written specifically for the Z80* and takes full advantage 
of its extra powerful instruction set. In other words its 
not warmed over 8080 code! Available for TRS-80* 
(Model | or II). Tarbell, Xitan DDDC, SD Sales “VERSA- 
FLOPPY”, North Star (SD&DD), and Digital (Micro) 
Systems. $79.95/$25. 


SYSTEM MONITOR BOARD (SMB Il) 
Acomplete I/0 board forS-100systems. 2 serial ports, 
2 parallel ports, 1200/2400 baud cassette tape inter- 
face, sockets for 2K of RAM, 3-2708/2716 EPROM's or 
ROM, jump on reset circuitry. Bare board $49.95/$20. 


ROM FOR SMB Il 
2KX8 masked ROM of Zapple monitor. Includes source 
listing $34.95/$15. 


PAYROLL (source code only) 
The Osborne package. Requires C Basic 2. 
5” disks $124.95 (manual not included) 
8” disks $ 99.95 (manual not included) 
Manual $20.00 


ACCOUNTS PAYABLE/RECEIVABLE 


(source code only) 
By Osborne, Requires C Basic 2 
5” disks $124.95 (manual not included) 
8” $99.95 (manual not included) 
Manual $20.00 


GENERAL LEDGER (source code only) 
By Osborne. Requires C Basic 2 
5” disks $99.95 (manual not included) 
8” disks $99.95 (manual not included) 
Manual $20.00 


C BASIC 2 
Required for Osborne software. $99.95/$20. 


SYSTEM/6 
TPM with utilities, Basic | interpreter, Basic E compiler, 
Macro | assembler, Debug | debugger, and ZEDIT text 
editor. 
Above purchased separately costs $339.75 
Special introductory offer. Only $179.75 with coupon!! 


al $160.00 
aS Es 


ORDERING INFORMATION 
Visa, Master Charge and C.O.D. O.K. To order call or 


write with the following information. goaamess ) 

1. Name of Product (e.g. Macro |) Ge 

2. Media (e.g. 8” CP/M) at _ 

3. Price and method of payment (e.g. C.0.D.) include 
credit card info. if applicable. 

4. Name, Address and Phone number. 

5. ForTPM orders only: Indicate if for TRS 80, Tarbell, 
Xitan DDDC, SD Sales (5%" or 8”). ICOM (5%” or 
8”), North Star (single or double density) or Digital 
(Micro) Systems. 

6. N.J. residents add 5% sales tax. 


Manual cost applicable against price of subsequent 
software purchase in any item except for the Osborne 
software. 


For information and tech queries call 
609-599-2146 


For phone orders ONLY call toll free 


1-800-327-9191 
Ext. 676 


(Except Florida) 
OEMS 
Many CDL products are available for licensing to 
OEMs. Write to Carl Galletti with your requirements. 


* Z80 is a trademark of Zilog 

* TRS-80 is a trademark for Radio Shack 

* TPM is a trademark of Computer Design Labs. It is not 
CP/M* 

* CP/M is a trademark of Digital Research 

Prices and specifications subject to change without 

notice. 


DEALER INQUIRIES INVITED. 


COMPUTER 
DESIGN 
LABS 


342 Columbus Avenue 
Trenton, N.J. 08629 


NEWS & VIEWS 


by Sol Libes 


SOL BUSINESS SYSTEMS GROUP FORMED 

A users group, called ASCII, has been formed 
to support SOL business systems users. 
Membership is $10 for which members receive 
four newsletters yearly, a HOT-LINE for problems 
and other benefits. To obtain more information or to 
join call or write: Jerry Brockway, Suite 308, 
Bayside Building, Tampa Florida, 33609; telephone 
(813)837-4655. 


CP/NET NEXT DIGITAL RESEARCH PROJECT 

With CP/M 2.0, MP/M, and PL-1 now in 
distribution, Digital Research is turning its 
attention to CP/NET. CP/NET will be a control 
program for microcomputer networks which allows 
independent processors to access I/O facilities 
through a network. Applications range from 
sharing peripherals among several slave MP/M and 
CP/M operating systems, to networks where the 
slaves provide only the computing elements which 
depend upon the master for disk, printer, and other 
\1/O facilities. CP/NET will be divided into three 
distinct programs which operate under a master 
MP/M, slave MP/M or CP/M system, or take the 
place of the BDOS in a CP/M slave. Look for 
release in the late summer. 


CBBS ADDITIONS 

The following are some new CBBS systems 
that are "up andrunning’’. They should be added to 
the listing published previously in the Jan/Feb 
issue. 


Long Island Computer Association. . . (616)938-9043 
Sacramento Computer Club ...... (916)483-8718 


PASCAL LIBRARY IN OPERATION 

Jim Gagne, DataMed Research, 1433 Roscomare 
Rd, Los Angeles, CA 90024 (213/472-8825) has 
assumed the role of interim librarian for the UCSD 
PASCAL User Group. He is publishing a newsletter 
and furnishing copies of the four volume of software 
currently in the library. The library disks are 
available for $10 + tax, each, and are furnished on 
8” single-density, USCD or CP/M format. All library 
material may be freely copied as long as it is not 
sold for profit. 

If you donate accepted software to the library you 
get a free volume of your choice. He is looking for 
disk editors to collect, organize, check out, 
document and catalog disks. Disk editors will be 
listed as editor of the disk, receive $1 for each disk 
sold and receive copies of all of the Group’s disks. 
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S-100 COMPUTER CLUB ADDITIONS 

| have received notification from several other 
computer clubs that either have S-100 User Groups 
or are exclusively S-100 oriented. They are the 
following: 


Utah Computer Association 

Has Software, hardware, CP/M and UCSD 
PASCAL User Groups. 378 E. 9800 So., Sandy, 
Utah, 84070; contact: Larry Barney (801-571-9661) 
or Scott Nelson (801-571-1335). 


Evansville, Indiana Computer Club 

Has SOL, ALTAIR and CP/M User Groups. 
Write:Evansville Computer Club, c/o National 
Sharedata Corp., POB 3895, Evansville Ind. 47737 
or call: Bob Herrdink 812-426-2725. 


Australian User’s Group 

Called '’80AT” (80 Applications Transfer) has a 
CP/M user group and has as its primary function 
software exchange. It maintains an active software 
library. For information write: 80AT, C/- Planet 3 
Systems, 47 Birch St., Bankstown, NSW 2200, 
Australia. 


Boston Computer Society 

North Star and CP/M User Groups. Write to: The 
Boston Computer Society, 17 Chestnut Street, 
Boston MA, or call: Gary Saxton (617) 816-6600 
ext-2707 (days) or 877-6456 (evenings). 


New England Computer Society 

CP/M User Group. Write to: NECS, POB 198, 
Bedford MA, 01730, or call: Dave Mitton (617) 
493-9362. 


"C’ USER GROUP NEWLETTER PUBLISHED 
The first issue of the ''C User Group 
Newsletter” has appeared in print. For the present 
it is available free of charge (although | personally 
feel that a $2-3 contribution should be sent to 
Acover postage, printing and misc.). Also, a disk 
contraining C-programs is available (disk and 
return postage must be provided). For more 
information write: CUSER GROUP, P.O. Box 2556, 
Tallahassee Fla. 32304, or call: (904)644-2764 
between 0730-0930 and 1600-2000 EST or 
(904)224-1101 between 1000-1530 EST. 


CP/M USERS MAGAZINE PUBLISHED 

LIFEBOAT ASSOCIATES, the prime distributor 
of CP/M system software, has started publishing a 
monthly magazine for CP/M users. Although to a 
large extent it is a promotional vehicle for Lifeboat it 
contains a wealth of information. 

The following is quoted from the LIFEBOAT 
news release: 

"Lifeboat Associates is pleased to announce 
the creation of LIFELINES, a monthly newsletter 
specifically designed for those who take 
computers and computer software seriously. The 
primary objective of LIFELINES is to give software 


S-100 MICROSYSTEMS 


owners full after-sale service by keeping readers 
informed on the current status of software 
products. Each month there will be a table listing 
the array of serious CP/M compatible software 
products distributed by Lifeboat Associates. 
Readers will be notified of new versions, new 
products, discovered bugs and bug fixes. Articles 
dealing with the relative merits of alternative 
software products will be featured. 

Another objective of LIFELINES is to act as a 
forum for software users. Subscribers will be 
provided with the opportunity to give effective 
feedback to authors and distributors and to share 
experiences and concerns. 

LIFELINES will also serve as the offical 
newletter of the CP/M Users Group (CPMUG). A 
section of LIFELINES will be devoted to the 
distribution of users group’s news; catalogs and 
abstracts of new CPMUG volumes will be 
published.” 

The first issue contained the following 
goodies: 

1) List of all CP/M software distributed by 
Lifeboat with the current release version indicated. 
(It was distressing to find out that every CP/M 
based software package !| owned is out of date.) 
Descriptions of many of the new versions were 
given explaining the differences between the new 
and old versions. 

2) Known bugs in Lifeboat distributed software 
were listed for many of the packages. This article 
listed about a dozen or so bugs. Somehow | have 
the feeling that the list should have been many 
times larger. 

3) There was a delightful article by Ward 
Christensen titled "Users Group News”. Ward is 
one of the most active contributors to the CP/M 
User Group Library and gives some good insight 
into the workings of the library. He also comments 
on some of the more worthwhile programs in the 
library. 

4) There was a listing of three of the new disks 
in the CP/M user library together with abstracts of 
the contents of the disks. Regretfully only three out 
of the nine new disks were described. Hopefully 
this listing will continue in the next issue of the 
magazine. 

The first issue was 17 pages and carries aprice 
of $2.50 which appears a bit steep to me. Harris 
Landgarten, the editor of the magazine tells me that 
the following issues will be larger in size. The 
“introductory” price is $18 for 12 issues (USA, 
Canada & Mexico), $40 elsewhere. It will be mailed 
First Class or Air Mail. To subscribe write to: 
LIFELINES, 1651 Third Avenue, NY NY 10028. 


Z USERS GROUP FORMED 

Anew Users Group has been formed to support 
Ithaca InterSystems _ software.....presently 
consisting of PASCAL/Z, Z-80 and 2Z-8000 
software. It aims to assist users and provide a 
means of software exchange. A flyer will be issued 
bimonthly with bug notes, fixes or anything else of 
interest to the group. It will cost $6 to get on the 
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mailing list. Public domain programs that run under 
CP/M, single sided/single density, will be 
distributed. The first volume is due for distribution 
on July 1st. There will be a charge of $10 per disk, 
which includes the disk and mailing. Plans callfor5 
disks to released in the near future. The mailing list 
flyer will announce each new volume. There is no 
membership fee and the organization will be non- 
profit. 

Donations will be distributed with full credit and 
comments. For information contact: ZUG, 7962 
Center Parkway, Sacrement CA, 95823. 


DIGITAL RESEARCH EXPECTS HUGE SALES 
INCREASE 

Talk about luck. Back in 1975 Gary Kildall 
developed CP/M as an 8080-based disk operating 
system to work with Intel’s PL/M development 
language. Gary had worked as a_ software 
consultant to Intel and helped develop PL/M. He 
developed CP/M on his own expecting that Intel 
would grab it up. But no such luck. Intel was more 
interested in selling hardware and did not 
yetappreciate the importance of software. Little did 
they realize that CP/M would become the standard 
for microcomuter operating systems and generate 
millions of dollars in sales. 

Gary began to distribute CP/M mainly by word 
of mouth recommendations. Within three years 
sales rose to over $1 Million. Today DR employs 16 
people and expects 1980 sales to hit $3 Million. 
They are planning to double in size and reach $30 
Million next year. Currently CP/Mis licensed to 200 
manufacturers and software houses and there are 
over 400 applications packages which run under 
CP/M. 

DR currently also offers MP/M, a multitasking 
DOS and PL1. Soon to be introduced is CP/NET for 
microcomputer networking and an operating 
system for 8086, 16-bit, based systems. 

Now | ask you: where do you think we would be 
today if Intel had bought CP/M? Also, where would 
Gary Kildal and Digital Research be? 


RUMOR 

| received a phone call from an IC manufacturer 
who is seriously considering introducing a two-IC 
chip set which will handle all the interfacing 
requirements for the S-100 bus. This would reduce 
the number of ICs required on both Master and 
Slave cards and reduce product cost. The ICs will 
provide all the necessary bus buffering, control 
signal and address decoding and DMA logic and 
will meet the IEEE S-100 specs. 


NORTH STAR USER GROUP FORMED 

An international North Star User Association 
(INSUA) has started. It will provide laison, feeback 
and fixes for North Star users. It will also work with 
established local North Star user groups. It will 
publish a quarterly newsletter and maintain and 
distribute software. 

Membership is $15. For more information 
contact: INSUA, 131, Highland Ave., Vacaville CA, 
95688 or telephone: (707)448,9055. 


11 


News/Views, cont'd... 


INTEL RELEASES DATA ON 
32-BIT MICROPROCESSOR 

Intel, the recognized leader in microprocessor 
development, has “leaked” advance information on 
three new forthcoming microprocessors. Two are 
upgrades of the current 8086 16-bit processor and 
the third is a full 32-bit microprocessor. All are 
expected to be introduced officially in 1981. 

Also, Intel will go to a new part number system. 
Gone will be designations such as 8088, 8086, etc. 
All processor chips will have an “iAPX” prefix which 
stands for “Intel Advanced Processor Architecture.” 
Thus the 8086 will now be known as the iAPX-86. 
Adding I/O processors will make it an iAPX-86/11 or 
iAPX-86/12 for one or two channels, respectively. 
Add a math processor and it will be known as the 
iAPX-86/20 or combined with !/O processors it will 
be an iAPX-86/21, etc. 

The new 16-bit microprocessors will be known as 
the iAPX-186 and iAPX-286. They are upgrades of 
the 8086 providing up to 30 and 100% performance 
improvements. Both will have one gigabyte of virtual 
memory addressing and 16 megabytes of direct 
addressing. 

The iAPX-186 will have three 16-bit timers, an 
interrupt controller, clock generator, two DMA 
channels, and a special communications port on 
chip. It is thus designed for multiprocessing 
applications. The iAPX-286 version will be designed 
for multi-user applications and will have an on-chip 
memory manager and two I/O channels. Both 
devices will come in 68-pin packages. 

The iAPX-432 will be a 32-bit microprocessor with 
full 32-bit architecture. It will directly execute the 
ADA high level language, an extension of PASCAL. 
The iAPX-432 will be a 3-chip set and up to eight 
processors can be plugged into the bus, without 
changing system software, to make up one CPU 
with increased power. 


A/D-D/A 


S-100 A/D 

8 Ch. Differential or 

16 Ch. Single-Ended, 
S-100 8086 12 Bit, High Speed $495. 


CPU with $450. 
Vectored Interrupts S-100 D/A 4 Channel 


PROM-I/O $495. 12 Bit, High Speed $395. 
RAM $395 
8K x 16/16K x 8 1he-0 B/D-DZA 


Parallel /O $350. | + 12-Bit, High Speed 
and Timer Available Soon 
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00 VIDEO 
DIGITIZATION 


Real Time Video $850. 
Digitizer and Display 


Computer Portrait 


RUMORS 

More rumors keep sufacing that IBM will soon 
introduce a new microcomputer using an IEEE S-100 
bus interface. It has already been dubbed the 
“1505.” It will be made in Japan, sell for about 
$4,500, include integral CRT, 16K of RAM, 30 cps 
printer, tape cartridge drive, ROM BASIC, and will 
use an 8080 type microprocessor..... Intel is 
expected, shortly, to announce a 60% price cut on 
the 8088. The 8088 is essentially a 16-bit processor 
with 8-bit I/O, executing the 8086 code. This 
reduces the 8088’s price to $25 in 1,000 lot 
quantities and to $15 in higher quantities. It is 
expected that the 8088 will be under $10 within 
another year. 


8088 CPU CARD TO BE AVAILABLE 

In BYTE magazine’s September and November 
issues there will be an article on constructing an 
S-100 8080 CPU card. The card was designed by 
Tom Cantrell, of Intel. Tom will be selling a bare 
CPU card with manual for $60. Also, he will make 
available a monitor program on disk or in ROM for 
$40. This could prove to be a very economical way to 
move up into the 16-bit CPU area. The 8088 executes 
the 8086 code but has 8-bit 1/O. The card will work 
with standard 8-bit wide S-100 memory cards 
andi/O cards. It does lack certain IEEE features 
such as 16-bit request logic and pSTVAL control 
signal. The 2-K ROM monitor program is very 
powerful and includes debugging features such as 
multi-bread-points and single-step execution. Tom 
points out that Digital Research will soon release an 
8088/8086 version of CP/M which should be easily 
adaptable to the CPU card. Further, the current 8086 
microsoft assembler can be used to generate code 
for the 8088. For more information contact: Micro 
Future, PO Box 5951, San Jose CA, 95150; (408) 
249-0560. 


S$-100 Boards 


Video and/or Analog 
Data Acquisition 
Microcomputer Systems 


The High Performance S-100 People 


TECMAR, INC. 
23414 Greenlawn e Cleveland,OH 44122 
$4950. | (216) 382-7599 
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The above LEAPAC PERSPECTIVE PLOT PACKAGE and MAURO MP-250 PLOTTER, if purchased 
together, will include the perspective plot application modules, L3P-CHAR and L3P-ARC. The packages 


can be purchased individually. See below. 


L3P — LEAPAC Basic Perspective Plot Subroutine Package. $195.00 
(requires external subroutine PLOT) 

L3P-CHAR — Perspective ASCII Character Plot Subroutine Package. $65.00 
(requires L3P and L2D-CHAR) 

L3P-ARC — Perspective Elliptical Curve Plot Subroutine Package. $65.00 
{requires L3P) 

L2D-CHAR — X-Y ASCII Character Plot Subroutine Package $95.00 
{requires ext. subroutines PLOT and WHERE) 

L2D-MPD — X-Y Vector Plot Driver for the MAURO MP-250 Plotter. $65.00 
(contains PLOTS, PLOT, WHERE, FACTOR and SETORG) 

L2D-DPD — X-Y Vector Plot Driver for 1600 type DIABLO Printers. $65.00 
(contains PLOTS, PLOT, WHERE, FACTOR, RESET and SETORG) 

MICRO PLOT —~ Extensive X-Y Vector Plot Subroutine Package from MICAH $195.00 ALL ORDERS PREPAID OR C.0.D. 


for daisy wheel bi-directional printers such as Diablo 1620, Sprint-5, etc. 


20 days to clear the banks. 


atable to 
80, and COMPILER 


Prepaid — send certified or cashiers’ check. Personal and company checks require 


C.0.D. — add $10 or 2% for handling, whichever is greater. 


Deliveries in California — add 6% sales tax. 


DEALER INQUIRIES ARE INVITED — Inquire about other diskette formats. 


LEAPAC SERVICES 
8245 Mediterranean Way 
Sacramento, California 95826 
(916) 381-1717 
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Software Product Review 


THE MATE TEXT EDITOR- 
WORD PROCESSOR 


One of the widely known benefits accruing to the 
S-100 computer owner is that he can use the CP/M™ 
operating system. One of the widely unknown benefits 
of using CP/M is the opportunity to use a suberb text 
editor-word processor called MATE. This program, 
designed and coded by Michael Aronson, was copy- 
righted early in 1979 and sold, until recently, for 
$69.50. Aronson, for some reason, did not aggres- 
sively market his product and it has become known to 
only a small sample of the CP/M users through word- 
of-mouth. 

| have used it for six months now, writing all my 
assembly, FORTRAN, CBASIC, PILOT and C source 
programs with it and would feel crippled without it. Two 
years ago | had a hard time getting used to the CP/M 
editor (ED) but finally grew rather fond of it. However, 
since acquiring MATE, | have not written a program 
with ED. One thing more, which I’m sure will surprise 
Pencil enthusiasts, (and | include myself amont them); | 
rarely use Pencil now, finding MATE my choice in word 
processing, although MATE does not have all the 
output formatting capabilities present in PENCIL. 

MATE comes with a good user manual and inter- 
face guide, and Aronson shows that he is sensitive to 
the documentation problem by the way he has design- 
ed and written it. The disk | received had drivers for 
interfacing with VDM-1, ADM-3 and Hazeltine 1500 
CRT’s in both HEX and ASM files. Following clear 
instructions in the interface guide of the manual, | had 
my VDM-1 version up and running without trouble. 

Aronson, in the introduction to his manual, spells 
out the commonly accepted meanings of “text editor”, 
“word processor” and “text output processor” and 
explains that “MATE is an attempt to combine some of 
the best features of all three”. | think he has been 
successful in this attempt. 

Mate comes up in a “Command Mode” which is 


R.D. Graham, 550 Starboard Drive, Naples, FL 33940 


14 


R.D. Graham 


reminiscent of CP/M’s ED. There are a wealth of 
commands here, the majority of which, | must confess, 
| don’t use much because | find it so convenient to use 
similar “instantaneous” commands in the “Insert 
Mode”. In this mode, what you see is what you get. Text 
is entered by simply typing. Editing changes show up 
instantaneously on the screen at the cursor position. 
No more blind editing! You can move the cursor to the 
beginning or end of the text buffer with control A and 
control Z respectively, and besides moving the cursor 
up or down one line at a time you can move it up or 
down 6 lines at atime. This allows you to move through 
your text very rapidly. Similarly you can move the 
cursor forward or backward one character at atime, or 
one word at a time. Insertion or deletion of text at the 
cursor is similarly easy, instantaneous and always with 
the sure knowledge that it has been done correctly 
since you see it happen. Big blocks can be moved 
either with tags or with easy moves of text to one of ten 
text buffers available, from which it is inserted at the 
cursor position with another simple command. 

Search, search and change, set tab stops, delete 
tab stops, set left and right margins are all commands 
(with many options) available to the user of MATE. 

Users with big complicated editing jobs will 
probably find the macro facilities available in MATE 
very much to their liking for they can, in effect, add their 
own commands to MATE’s command set. To aid in 
“programming” these complex macro command 
strings, Mate includes a breakpoint and trace facility. | 
have not attempted to build any macro command 
strings because for the uses | make of MATE | find it 
quite powerful enough the way it is. However, many will 
probably want to improve its output formatting capabil- 
ity and this would be one way to do so. 

In summary, | think that for the money MATE 
cannot be beat; and that many of you will agree with me 
that in preparing source code files under CP/M it 
cannot be beat at any price. 
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SO, WHAT ARE YOU 
WAITING FOR? 


VECTOR GRAPHIC (20Z off) 
(all are assembled & tested) 


ZCB Z80A SBC $345.00 
Z80A CPU $195.00 
Flashwriter 2 video $295.00 
Bitstreamer 2 I/0 $225.00 


Precision Analog $350.00 
Hi-res. Graphics $225.00 
Video Digitizer $160.00 
18=slot mother $160.00 
PROM/RAM 3 (12K) $195.00 
8K Static RAM $175.00 
64K Dyn. RAM $795.00 


Micropolis Disk Cont.$425.00 
Vector Graphic MZ $3495.00 


System B $4495.00 
System B/Q (w/Qume) $7395.00 
NEW System 2800 $5995.00 
NEW System 2800/Q $8895.00 
NEW System 3030 SAVE 


OTHER SPECIALS 


Zenith Z89 (48K) $2595.00 
PASCAL Microengine CALL 
CF&A desks 30" X 48" $159.00 
CF&A Univ. print. std.115.00 
(the CF&A pair) only $259.00 
Konan “Hard Tape" subsystems 
from $5995.00 


“THE DAISY PATCH” 


Plessey “Alphagraph” printer 

(daisywheel w/ bi-directional 
tractors) SPECIAL $2495.00 

C. Itoh "Starwriter"$1895.00 

NEC & Qume printers CALL 


Anadex 9500 $1495.00 
Centronics 737 $895.00 
TVI 912 & 920 BéC CALL 
ADDS 25's & 40's CALL 


Microterm 2A, 5A, 100 CALL 
Graham-Dorian Software SAVE 


CARDFILE is an enhanced version 
of Vector Graphic's Word Mgmnt. 
merged mailing list...more like 
a DBMS and it handles 9-digit 
zip codes! ONLY $125.00 
(with MEMORITE only $500.00 


25% down - balance COD 
prepay saves freight 

(add 4Ztax on MN sales) 
local prices slightly higher 


~Budget InfoSystems ~ 


1633 NE Highway Ten - suite 5 west 


Spring Lake Park, MN 55432 
4 786-5545 (757-5878 afterhours) + 
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A 16-BIT WIDE MEMORY 


FOR THE S-100 BUS 


Ken Maun & Pat Stakem 


This article discusses the design of two 16 bit wide memory boards 
compatible with the proposed IEEE S-100 bus standard 
(IEEE-696). These units are compatible with the addressing 
modes of current 16 bit and extended 24 bit addressing. By using a 


piggyback card in one of the designs, 


different memory 


configurations (ROM, dynamic RAM, static RAM) may share the 
same controller and power circuitry. Virtual address paging is also 


discussed. 


The IEEE proposed standard for the S-100 bus 
(reference 1) expands its capabilities from 8 bits of 
data and 16 of address to 16 bits of data and 24 of 
address. These features are required by the new 
generation of 16 bit processors such as the 9900, 
8086, Z-8000, and M68000. Although 16 bit proces- 
sors have been put on the S-100 bus before, these 
operations involved compromises such as dual S-100 
busses for parallel data access, or sequential byte 
accesses. In addition, processors on the S-100 bus 
had to emulate 8080 timing and control, since the bus 
was essentially an 8080 bus. These restrictions have 
been greatly relaxed by the new bus standard, and the 
IEEE group is to be greatly lauded for achieving a 
semblance of order in a difficult area. 

To support a new family of 16 bit procesors on the 
S-100 bus, a new series of peripheral cards are called 
for. This paper describes a memory card philosophy 
for the new S-100 standard that is compatible with 
both 8 and 16 bit accesses, and both byte and word 
mode 16 bit operations. 

First, the extension of the address bus to 24 bits, 
and the data bus to 16 bits will be briefly discussed. 


Discussion of the 24 bit addressing mode 

The address bus can be viewed as 16 or 24 
parallel lines. At least 16 lines are employed, with more 
lines available if extended addressing is desired. 
These lines are designated AO (LSB) thru A15 or A23 
(MSB). I/O device addresses appear on address lines 
AO through A7, or AO through A15 if extended I/O 
addressing is to be employed. 


Discussion of 16 bit data mode 

For byte operations, the “old” S-100 standard of 
two unidirectional 8 bit data busses is used. Data input 
(with respect to the bus master) appears on the DI bus 
and data output on the DO bus. For sixteen bit data 
transfers, the DI and DO busses are used together as a 
single 16 bit bidirectional bus, under control of a 16 bit 
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transfer request line and acknowledge line. The ac- 
knowledge line is incorporated to allow use of current 
8 bit memory and I/O boards intermixed in a system 
with 16 bit boards. It should be noted that in the 
present proposed IEEE configuration it is possible to 
parallel two present design memory cards, or one of 
present design and a new eight bit card, to accomplish 
alternately an 8 and 16 bit wide memory, but that this is 


ADDRESSING, BUFFERING, 
& CONTROL ON BOTTOM 
CARD 


FIGURE 1 


not simple nor completely straightforward. A minor 
modification of the presently proposed standard 
would allow this. However, in this discussion such a 
modification will not be considered. Rather, we pre- 
sent two new memory card designs of flexibility and 
expanded capability, and a low cost alternative. 


A High Flexibility Memory Unit Design 

One of the main concerns in designing a byte- 
organized 16-bit memory is that of byte boundaries. 
For example, consider a CPU access ofa single byte at 
location thirty (0011110). Next, assume that CPU tries 
to fetch a double byte instruction from the following 
location (thirty one). This would entail fetching a byte 
from locations thirty one (0011111) and thirty two 
(0100000). The memory must know to take from its 
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THE NEXT GENERATION OF MICROCOMPUTERS 


IS HERE AT | 
QUASAR 
DATA PRODUCTS 


Z-8000 


AND STILL RUN YOUR 8 BIT SOFTWARE 


Z-8000 SERIES 16 BIT CPU S-100 BOARD — CAN BE PLUGGED INTO YOUR EXISTING SYSTEM 


© FULLY S-100 IEEE COMPATIBLE 

© SUPPORTS EXISTING 8 BIT MEMORY AND 8 BIT PERIPHERAL 
BOARDS 

¢ CAPABLE OF READING AND/OR WRITING 8 BIT, 16 BIT OR MIXED 
8 BIT AND 16 BIT MEMORIES AUTOMATICALLY 

© 8 BIT AND/OR 16 BIT PERIPHERAL MODULES CAN 
SIMULTANEOUSLY CO-EXIST IN THE SAME BUS WITHOUT 
ANY MODIFICATIONS 

© CAPABLE OF OPERATING AS A SLAVE PROCESSOR TO ENABLE 
YOUR EXISTING CPU TO CONTROL THE Z-8000 


@ SUPPORTS ON-BOARD HARDWARE SINGLE STEPPING 
¢ SUPPORTS EITHER SEGMENTED CPU OR NON-SEGMENTED CPU 
@ POWER-ON AND RESET JUMP DIP SWITCH SELECTABLE 
e JUMPER SELECTABLE 2 OR 4 MHz. OPERATION 
e DIP SWITCH SELECTABLE NUMBER AND TYPE OF WAIT STATES 
¢ SOFTWARE 
e Z-80 EMULATOR ENABLES YOU TO EXECUTE YOUR EXISTING 
8 BIT SOFTWARE WITHOUT ANY MODIFICATIONS AND 
ALLOWS YOU TO RUN CP/M IMMEDIATELY 
¢ EXTENDED MONITOR, DEBUGGER, DISASSEMBLER 


INDUSTRIAL QUALITY 


Z-80 SERIES 8 BIT CPU S-100 BOARD 

¢ 4 MHZ. 2-80 MICROPROCESSOR 

¢ FLOPPY DISK CONTROLLER ALLOWING SINGLE- AND 
DOUBLE-DENSITY USING EITHER 8" or 5%” DISK DRIVES 

¢ ROOM FOR THREE 2716 EPROMs or THREE 2316 ROMs 

© TWO RS.232C SERIAL PORTS 

¢ TWO PARALLEL PORTS 

¢ HARD DISK CONTROL VIA THE PARALLEL PORTS 


Z-80 


e REAL TIME CLOCK 

¢ RESET-JUMP CIRCUIT ALLOWS CPU TO JUMP TO MONITOR 
SOFTWARE ON RESET 

¢ CAPABLE OF PROGRAMMING AND VERIFYING INTEL 2716 ON 
BOARD WITH EXTERNAL POWER SUPPLY 

@ UTILIZES VECTORED INTERRUPTS OF Z-80 CPU 

e MONITOR PROVIDED 


INDUSTRIAL QUALITY 


QDP-8100 WITH 2 MEGABYTES STORAGE 
STANDARD (OPTIONAL 4 MEGABYTES) 
© Z.8000 SERIES 16 BIT CPU S-100 BOARD - SEE ABOVE 
¢ SOFTWARE (PROVIDED WITH SYSTEM) 

© CP/M 2.2! OPERATING SYSTEM 

*¢ BASIC 

 Z80/8080 EMULATOR 

© MONITOR, DEBUGGER, DISASSEMBLER 

SOFTWARE OPTIONS: PASCAL 
® UNIX? OPERATING SYSTEM COMING 


SYSTEMS 0DP-100 WITH 2 MEGABYTES STORAGE 


STANDARD (OPTIONAL 4 MEGABYTES) 
© 2.80 SERIES 8 BIT CPU S-100 BOARD - SEE ABOVE 
¢ SOFTWARE (PROVIDED WITH SYSTEM) 
¢ CP/M 2.2! OPERATING SYSTEM 
© BASIC 
¢ ACCOUNTS RECEIVABLE, GENERAL LEDGER, ACCOUNTS 
PAYABLE, PAYROLL WITH COST ACCOUNTING 
¢ OPTIONAL SOFTWARE: FORTRAN, PASCAL, COBOL, C 


e INTELLIGENT CRT TERMINAL (80 CHARACTERS X 24 LINES) 
EACH SYSTEM , ¢4 xpyTEs RAM 


CONTAINS: ¢ TWO 8 INCH, DOUBLE SIDED, DOUBLE DENSITY FLOPPY DISK DRIVES WITH CONTROLLER 
@ 2 SERIAL AND 1 PARALLEL (2 PARALLEL FOR QDP-100) PORTS 


'CP/M™ DIGITAL RESEARCH 
?UNIX™ BELL LABS 


@ ATTRACTIVE WOODGRAIN CABINET WITH POWER SUPPLIES AND CABLING 
FULL TECHNICAL SUPPORT FROM THE STAFF AT QUASAR DATA PRODUCTS 


4 Mhz 64K Dynamic RAM 
16K - *250° 32K -°350° 48K - °450° 
QUASAR FLOPPY SYSTEM 


° Two MFE DBL sided drives * Cable * Case & Power Supply 
assembled and tested Wood cabinet --++-+++++eeees °1895° 


QUASAR 2 MEG FLOPPY 
°¢ 2 MFE double sided drives 


64K - °549° 


TELETEK DBL. DENSITY, DBL. SIDED 
Disk. Controller Board 5 6. :s00e ccasuw eqacaaarcesate omer 5395” 


MFE Double Sided - Double Density 
8” Floppy Disk Drives. (the best) ..... *650° 
Using the Teletek Controller under CP/M, 
THIS DRIVE WILL GIVE YOU ALMOST 
ONE MEGABYTE PER DISK DRIVE. 


* Teletek disk controller board Power supply for above .............. ‘110 
° Power supply & cable 
® Wood cabinet 
° CP/M version 2.2 & bios 
*¢ Assembled &tested....... $2295" PAPER TIGER a TI - 820 
Dealer Inquiries Invited, Hours:9-5:30 M-F Includes Geaphyice i « sis. 949 
Cable for TRS-80 ...... s39"° Serial Printer - 


Specifications Subject To Change 
Unix - Bell Lab 30 Day ARO CP/Mt™ - Digital Research 


Call for Apple 


Checks, money orders accepted 


.°1995" 


Full package options. . 


Add $2.50 freight charges on orders under 10 Ibs. Over 10 Ibs. F.0.B. Cleveland 


QUASAR DATA PRODUCTS 


VISA" 


25151 Mitchell Dr., No.Olmsted, Ohio 44070 (216)779-9387 
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odd-byte memory and put data onto the lower lines, 
and to take from its even-byte memory and put data 
onto the upper lines. (At other times, it would have to 
put the data out in reverse order of this.) Additionally, in 
the case above, in which the address is given in the 
odd byte, the memory would have to know to access a 
completely different address for the even byte. In the 
above case, it is 001111X for the odd byte, and 
010000X for the even byte. This is the age old problem 
faced by mini-computer designers. Some have ignored 
the problem, only to be faced with programming 
problems in the field. It is a serious consideration. 
For some of the 16-bit micros, such as the 9900 
which addresses only on even-byte boundaries this is 
no problem (the 9900 doesn’t have an AO line). Others, 
such as the 8086, addressing can be on either even or 
odd byte boundaries. To force this machine to observe 
only even boundaries, would pose considerable hard- 
ship on the programmer; however, its designers antic- 
ipated the problem and have constrained the 8086 to 
access odd boundary words in two steps, a byte ata 
time. It seems no current 16 bit processor addresses a 


word on odd (byte) boundaries. This simplifies the 
design. 

The design series in figures one through four can 
operate on either odd or even boundaries. It can also 
transfer data as either a 16-bit word or an 8-bit byte on 
either boundary. It can be implemented as either a 
static or a dynamic system. The dynamic implementa- 
tion could have more features -- some of whose cost 
would not be justified on the lower capacity static 
units. The family would justify a 16K byte static version, 
a 32K byte static version, and a 128K byte dynamic 
version. The number of features would be directly 
proportional to the capacity. Since the others are only 
a subset of the dynamic unit, only it will be discussed 
here. 

The basic unit is shown in figure 1. Since the unit, 
of necessity, has a good deal of support circuitry, a 
double deck S-100 card is indicated. The easily 
disconnected top card would contain the actual RAM. 
In case of the dynamics, this would have a capability of 
sixty-four chips, in a configuration very similar to the 
present 8K byte static units that proliferate on the 
market. The double-depth card allows compatibility 
with existing cabinets, and the thermal considerations 
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3480 
MEMORY CONTROL 
AND TIMING UNIT 


DELAY 
CIRCUIT 


RAS2 


have been covered by keeping the large heat dissipat- 
ing elements (memory chips and the power regulators) 
completely exposed to the air. Figure 2 shows the 
basic control and interface circuitry, including the 
incrementer which allows us to address words on both 
odd and even byte boundaries, the data bus multi- 
plexers which control the data traffic flow, and the 
memory interfacing, select, mapping and control units 
which allow the memory to be dynamically configured 
and mapped throughout the address space. 

Figure 3 depicts one of the two 64K x 8 bit memory 
banks. 
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ADDRESSING 

In order to achieve the byte-boundary addressing 
discussed above, the incrementer, shown in figures 2 
and 4 is used. This is essentially an adder, which 
always adds “one” to any address. The unincremented 
address is supplied to the bank specified on the 
address boundary. Thus, if an odd-byte address is 
received, whatever this address is will be sent to the 
odd-byte memory bank (minus AO). The incremented 
value would be sent to the even-byte memory bank 
(also minus AO). A possible incrementer configuration 
is shown in figure 4. Simpler configurations are pos- 
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16-Bit, cont'd... 


sible. In the more inclusive implementations of this 
system, each 1K byte portion of each memory could be 
assigned to any location within the entire 16 megabyte 
memory space, thus allowing complete virtual memory 
management and multi-program operation. In addition, 
read protect and write protect could be dynamically 
controlled. A Virtual Memory controller card to accom- 
plish this will not be discussed here. 


OTHER CONSIDERATIONS 

1. Top Byte of Memory: One difficulty in this 
arrangement is in word-addressing the very top of a 
memory card (byte FFFF). When this is done the lower 


byte accesses the top of memory, and the upper byte 
SLAVE CLR* 


if 


sINP CONTROL/SETUP | 
UNIT (PART OF 
INTERFACE UNIT) 


A1-A15 
| 
MEMORY SELECT | 
| AND MAPPING 


UNIT 
A14-A23 


LINE 
oe 
IN HIGH ORDER DATA INVERTER 


ERROR* (WORD ACCESS TO ODDADDR.) py ENABLE HI 


.————————— 


RDY REA BYTE OUT jm 


pWwR* >——_— 
pDBIN »——— 
pSTVAL >——————_—— INTERFACE 
CONTROL 


pSYNC »>—————_—- UNIT 


sWO* 
sM1 


sMEMR 
A LOORDERDATA | _ 
(DATA OUT LINE S) | 


sXTRQ* 


sIXTN* 


falls off the edge. Even when another memory card 
follows this one, it has no way of knowing it has been 
addressed. (Actualy the addressing wraps around to 
the bottom of the card, but this is not what the 
programmer usually wants. Rather than increase the 
cost, just to get one-byte of data, a top of memory error 
line is provided to alert the programmer not to access 
this word. (It only occurs once in 128K bytes). 

2. Parts Count: The number of auxiliary chips used 
is relatively high; however, the cost per bit is quite low. 

3. Expandability: This design is capable of later 
expansion to a half megabyte capacity on asingle card 
using the 64K bit dynamic RAM. As discussed earlier, 
the cards will be compatible with virtual memory 
mapping. 
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4. Power: Regulated power is provided by the 
controller card, and is derived from the S-100 bus 
unregulated lines. 

5. As mentioned previously, the popular present 
16-bit micros inhibit odd-byte word addressing; how- 
ever, there is no guarantee that this will always be the 
case. With this memory, the user is protected in any 
eventuality, be it anew and different micro, a bit-slice 
design or a 16-bit controller. 


A SIMPLE, LOW COST MEMORY UNIT DESIGN 

For those who do not need all the bells and 
whistles of the design just presented, a simpler im- 
plementation is suggested. It doesn’t have odd-byte 
word addressing capability or virtual memory or multi- 
programming facilitation capability. 


FIGURE 5 
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This design, illustrated in figure 5 is simply in- 
tended to provide the capability for areliable, relatively 
low-cost memory, usable by both 8 and 16 bit masters. 

Figure 6 through 11 show the operation of this 
design in different access situations. The first of these 
(figure 6), for example, shows the flow of data in the 
case in which an 8-bit master (CPU) is writing to an 
even address. Here, data is received by the memory 
unit via the low order data (OUT) lines and presented 
via the proper line receivers to the “EVEN” memory 
data bank. At the same time, this (EVEN) bank is 
enabled to receive data. 

Figure 7 shows an 8-bit write to an odd address. 
Figure 8 depicts an 8-bit read from an even address. 
Note that, here, the High Order (IN) data lines are used. 
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derives its data. Figure 9 shows an 8-bit read from an 
odd address. 
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Also note that the AO signal is used as a “steering” 
signal to determine from which bank the output MUX 
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The remaining two figures are used to depict 
sixteen bit transfers. It must be remembered that, in 
this simpler configuration, word transfers are not 
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allowed on odd byte boundaries, thus there are only 
two possibilities, write and read. Figure 10 illustrates a 
16-bit write operation and figure 11 a 16-bit read 
operation. In both cases, both memory banks are 
enabled. Note that for a 16-bit read (figure 11) aspecial 
provision must be automatically made. In other cases, 
when AO was even it automatically steered the output 
muxes to the proper banks for even data. When odd, 
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FIGURE 9 


AO steered the muxes to proper banks for odd data; 
not in this case. Due to an idiosyncrasy of the way the 
IEEE S-100 BUS spec is now set up, a special line 
inverter must be included to invert the convention in 
this case. This inverter can be implemented with a 
single exclusive-or gate. 
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FIGURE 10 


Unlike the previously discussed, high flexibility 
design, this simpler configuration can be implemented 
ona single card. As envisioned, it would also probably 
be best limited to simple static ram implementations of 
8 to 16K byte capacities. 
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8080 DYNATRACE 


Charlie Foster & Richard Meador 


A super 8080 emulator program useful in debugging 8080 programs. 


Anyone who is learning to program in assembly 
language can use a method of observing just what is 
going on inside of the CPU. If you know how to 
program already, you still need a way to debug your 
new programs. Dynatrace will help you in either 
case. Dynatrace is a development tool that will 
accept commands from any standard ASCII key- 
board and provides a TWO PART DISPLAY. The 
video monitor is configured for a 64 character by 16 
line display but since this article includes the source 
any other configuration can be patched into the 
program. 

The upper 4 lines of the display are dedicated toa 
dynamic display of the contents of register 
information being used in conjunction with the 
program being developed. The register display is 
always in view and is updated continuously as 
simulation progresses whether the simulation is 
single step or continuous run. Dynatrace is actually 
a pseudo-computer simulating in software every- 
thing done by the 8080 in hardware and more. With 
Dynatrace the user is able to see at a glance all 
register information and can make changes to 
existing contents of registers as desired. 

Dynatrace is also easily reconfigured to utilize 
subroutines existing in a monitor the user may 
already have up and running. TheA, E, F, H, J, K, N, 
O, P, Q, T, U, V, W, X and Y commands, being 
undefined, provide the user with the facilities for 
extensive expansion of the Dynatrace command set. 
Unused commands may be implemented by storing 
the address of a subroutine in the jump table 
beginning at address Base + 4AH. Thus, if the base 
of your Dynatrace is 0400H and you have a 
subroutine which you wish to incorporate at address 
0324H and thereby define the A command, you need 
only store 24H at address 044AH and 03 at address 
044BH. Once the new command has been defined, 
the user need only type the capital letter cor- 
responding to the command he has just defined to 
call his subroutine from dynatrace. Any subroutine 
the user may already have in ROM may be 
incorporated as a command by the above method, or 


Charlie Foster, The Brain-Drain Co., 7962 Center Parkway, 
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if used only infrequently it may be called and 
executed with the C command. If the user so 
desires, he may expand the size of Dynatrace by 
entering subroutines beginning at address Base + 
0CO00 hex. In its present form it takes up about 3K of 
memory. As you can see, the source is so heavily 
documented that it is close to 54K. 


Commands 


Commands are given to Dynatrace by typing a 
single capital letter followed by amplifying data as 
described below. All addresses and values are given 
in hex and all hyphens are issued by Dynatrace as 
prompting characters. Carriage returns for indicat- 
ing the end of an entry are not required if the value 
being entered is of the length expected. Thus, 
typing 4 hex digits for an address value of 2 hex 
digits for a byte value will complete the entry and 
not require a terminating character. Any value being 
entered with fewer digits than required will, 
however, require a terminating character such as a 
carriage return. 


B Toggle binary display of scratch 
registers and accumulator 


C-xXxxXX Call the user subroutine at 
address xxxx. The displayed 
register data is loaded into the 
8080 hardware registers and a 
normal subroutine call is made 
to the above address. A return to 
Dynatrace is effected by main- 
taining proper stack discipline 
and executing a normal subrou- 
tine return instruction. Upon 
return, the contents of the 
hardware registers are stored in 
the user’s registers and dis- 
played on the screen of the 
monitor. The C command must 
have the user’s stack pointer 
defined to be in some area of 
existing RAM not used by Dyna- 
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D 
FROM-xxxx 
TO-yyyy 


G-xxxx 
STOP AT-yyyy 


Lrxxxx 


Mxxxx-yy- 


trace. This is set up initially for 
the user, so no problems should 
occur. However, if the user 
inadvertantly changes the stack 
pointer to some area in the 
address space where RAM does 
not exist, or where it interferes 
with a stored program (either 
under test or with Dynatrace 
itself), results will be unpredict- 
able. 


Display the contents of memory 
from address xxxx to yyyy. 

The D command does not like 
addresses with unlike signs. 


Causes simulated execution of a 
users program to begin at 
address xxxx and continue until 
address yyyy is encountered or 
any key is typed on the key- 
board. The speed of simulation 
is selected with the “I” command 
below. 


Sets instruction execution speed 
from 0 to F hex where 0 is 
approximately 1 instruction per 
second and F is about 200 
instructions per second. 


Load register pair with xxxx 
where “r” is the first letter of the 
register pair name. (LH1234 
put 1234 in the HL register pair.) 
Note: The accumulator and the 
Processor Status Word are con- 
catenated to form a register pair 
“APSW.” 


Store yy at memory location xxxx 
and prompt with a hyphen for 
more data. Each succeeding byte 
will be placed in a subsequent 
memory location. The entry of 
data continues until a carriage 
return is entered in place of 
information. The M command 
has no provision for backspacing 
to delete an erroneously entered 
character. In the event that an 
entry is made incorrectly, it will 
be necessary to terminate the 
current command line and begin 
entering data after the last 
correct entry. The data entered 
before the error entry will have 
been stored correctly in memory 
and hence need not be repeated. 
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R Read Intel format papertape from 
teletype or reader. 


Ss Causes the simulated execution 
of one instruction at the location 


in memory indicated by the 
user’s program counter. 
Zz 
FROM-xxxx Zero RAM from address xxxx up 
TO-yyyy to but not including yyyy. 
Peculiarities 


A. 


Due to the nature of the execution of certain in- 
structions, the ending of the execution of one 
instruction and beginning of the execution of the 
subsequent instruction does not always corre- 
spond with the display. The simulation, however, 
is always carried out correctly and causes no 
problems in the program under development. The 
inconsistency is the updating of the program 
counter which is delayed one instruction for 
jumps, calls and returns. 


. Dynatrace is not ROMABLE as is, but if the user 


has a need for Dynatrace in ROM he can contact 
the authors to make arrangements to customize 
Dynatrace to his system. If there is any other 
need for customizing, the authors are willing to 
discuss the problem. Just send a self-addressed, 


. Typing C-xxxx, where xxxx is the base address of 


Dynatrace, can be used to restart Dynatrace and 
clear the screen of any previously entered data. 
The contents of memory are not disturbed, 
providing a convenient way to clear the user’s 
registers and reset the stack pointer to its default 
value (C-8000 in this version). 


4. If the user so desires, he may expand the size of 
Dynatrace by entering subroutines beginning at 
address Base + 0C00 hex. 

5. Your system must be memory-mapped. 

6. All commands must be in capitals. An “Escape” 
will abort an entry. 

7. Displays will be at top of screen for registers. The 
lower middle is for memory read out and the 
bottom for command lines. 

Further Notes 


| would like to say something about how to get 


this program up and running. First of all, it must be 
edited for the change in EQUATEs that will allow it 
to run on the user’s system. (In my case, | only 
needed to change the Video and Keyboard equates.) 
Then it must be assembled. Now, the user only 
needs to use DDT to call up DYNATRACE.HEX. 
Once there, type G8000 and DDT will jump into 
DYNATRACE. To return to DDT send DYNATRACE 
to a memory location with a RST 7. (If you don’t 
know where one is, use Dynatrace to write one into 
memory. Then use the C command to go there.) 
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Dynatrace, cont'd... to type. So for those who would prefer to have the 


When you want to debug a program you only need to source already ona disk, the authors can provide a 

use DDTs’ “I” command to call it up and the “R” copying service for a limited period of time (until 

command to read it into memory. From there you Jan. 1, 1982). If the reader will send a self- 

are on your own. In my system | have a 4K monitor addressed, stamped shipping package with a disk, 

residing in EPROM, so not only do | use the authors will copy and mail their package (by 

Dynatrace—I use my built-in monitor subroutines, return mail) for a handling fee of $5.00. For those 

too. who don’t want to bother with any of that, just send 
If you prefer a COM file, use a Relocatable $25.00 and the authors will provide everything. At 

assembler such as Microsofts’ M80 or Cromemcos’ least until the price of materials goes up. Note: The 

ASMB. They can place Dynatrace at any location disk will be CPM/soft-sectored/single density. 

that you would want. A COM file would have to be The authors can be reached at: 

placed at 100H. THE BRAIN-DRAIN CO. 

Conclusion 7962 Center Pkwy 


Sacramento, CA 95823 
Finally, as you can see, the program is a long one 


THE DYNATRACE SOURCE 


DYNATRACE 
V2.0 


Copyright © 1976, by Richard E. Meador, Sacra- 
mento, CA 95826 

All rights reserved with the exception of reproduc- 
tion by those individuals for their own noncommer- 
cial use. 


Edited for publication by Charlie Foster, 1980. 


ORG 080008 HL: Ds 2 ;USER'S HL REG PR STORAGE 
DYNAT: DS 0 #BASE ADDRESS OF PROGRAM STSWRD: DS 1 ;USER'S STATUS FLAG STORAGE 
STACK EQU DYNAT+0COOK ;SET UP SYSTEM STACK AC: Ds 1 ;USER'S ACCUMULATOR STORAGE 
CONPRT EQU OcsH ;CONTROL PORT ADDRESS PC: DS 2 ;USER'S PRIMARY PROGRAM COUNTER STORAGE 
SCREEN EQU OCCOOH ;1K OF BUFFER FOR SCREEN BINFLG: DB 0 ;BINARY DISPLAY SWITCH (0=>NO BINARY DISPLAY) 
TOS EQU (SCREEN+1024)./256 ;LAST BUFFER ADDRESS+1 CPOSIT: DS 2 ;CURSER POSITION FOR ROLLUP PORTION OF SCREEN 
MIDSCR EQU SCREEN +448 ;TOP LINE OF ROLLUP PORTION OF SCREEN STKTMP: DS 2 ;TEMPORARY STORAGE FOR SYSTEM STACK 
LINE EQU 64 764 CHARACTERS/LINE BASE: Ds 2 ;BASE ADDRESS STORAGE FOR VARIOUS ROUTINES 
LINE1 EQU SCREEN+LINE LAST: DS 2 ;LAST 7 : . e 
LINE2 &QU LINE1+64 FROM: DB "PROM-' ;MESSAGES 
LINE3 EQU LINE2+64 TO: DB 'to-* ; 
LINE4  EQU LINE3+64 ASCII: DB *0123456789ABCDEF' ;ASCII HEX DIGIT TABLE 
LINE5 EQU LINE4+64 MOVENM: DB ‘mov , ' ;MOVE MNUMONIC 
LINE15 EQU SCREEN+960 DB "COPYRIGHT (C) 1976, RICHARD E. MEADOR’ 
PCH EQU LINE1+8 ;PC HEX DISPLAY LOCATION ; 
INSTA QU LINE2+8 ;INSTRUCTION ASCII DISPLAY LOCATION ;CODE BEGINS HERE 
INSTH EQU LINE2+18 ;INSTRUCTION HEX DISPLAY LOCATION 3 
SB EQU LINE4+8 ;SIGN FLAG BINARY DISPLAY LOCATION ORG DYNAT  ;START ADDRESS 
zB EQU LINE4+9 ;ZERO FLAG BINARY DISPLAY LOCATION START: LXI SP,STACK ;DEFINE SYSTEM STACK 
ACB EQU LINE4+11 AUX CARRY FLAG BINARY DISPLAY LOCATION CALL CLRSCR ;CLEAR VIDEO SCREEN 
PB EQU LINE4+13 7PARITY FLAG BINARY DISPLAY LOCATION CALL SETSCR ;SET UP DISPLAY OF USER REGISTERS 
CYB EQU LINE4+15 ;CARRY FLAG BINARY DISPLAY LOCATION MVI A,0 ;CLEAR ACCUMULATOR 
ACCH EQU LINE1+22 ACCUMULATOR HEX DISPLAY LOCATION MVI B,14 ;SET CLEAR COUNT 
ACCB EQU LINE1+25 ;ACCUMULATOR BINARY DISPLAY LOCATION LXI H,PCl ;SET FIRST ADDRESS TO BE CLEARED 
BCH EQU LINE1+37 7B REG HEX DISPLAY LOCATION VDM010: MOV M,A ;CLEAR 
BCB EQU LINE1+42 7B REG BINARY DISPLAY LOCATION INX H ;NEXT ADDRESS 
DEH EQU LINE2+37 ;DE REG PR HEX DISPLAY LOCATION DCR B ;1 LESS TO DO 
DEB EQU LINE2+42 ;DE REG PR BINARY DISPLAY LOCATION INZ VDM010 =; DONE? 
HLH EQU LINE3+37 ;HL REG PR HEX DISPLAY LOCATION LXI H,PC1 ;YES, DEFINE USER'S STACK POINTER 
HLB EQU LINE3+42 7HL REG PR BINARY DISPLAY LOCATION SHLD STKPTR q 
SPH EQU LINE4+37 ;SP REG PR HEX DISPLAY LOCATION VDMO15: CALL DSREGS ;DISPLAY CONTENTS OF USER'S REGISTERS 
KSTAT EQU 6EH CALL KEYBDI ;GET COMMAND 
KEYBRD EQU 6CH CPL 40H ;CHECK FOR ALPHA 
KBDRDY EQU 80H aM VDM020 ;IGNORE IF NOT 
RSTAT EQU O7H CPI 5BH i 
READER EQU 06H ap VDM020 ; 
RDRRDY EQU 02H LxI H, KEYTAB ;GET COMMAND LOCATOR TABLE BASE ADDRESS 
SWTCHS EQU OFFH SBI 40H ;SUBTRACT ASCII BIAS FROM RECEIVED COMMAND 
CR EQU ODH RLC ;DOUBLE FOR WORD INDEXING 
LF EQU OAH ADD L 7ADD INDEX 
ESC EQU 1BH MOV L,A ; 
; MVI A,0 7 
; A ADC H Fi 
#STORAGE DEFINITION STATEMENTS MOV H,A 3 
; MOV E,M ;GET COMMAND ADDRESS FROM TABLE 

ORG DYNAT+0B80H  ;SYSTEM WORKING STORAGE AREA INX 4 ; 
PCl: Ds 2 ;USER'S PROGRAM COUNTER STORAGE MOV D,M ; 
STKPTR: DS 2 ;USER'S STACK POINTER STORAGE LXI H,VDMO020 ;SET UP RETURN ADDRESS 
BC Ds 2 ;USER'S BC REG PR STORAGE PUSH H 7SAVE ON STACK 
DE DS 2 ;USER'S DE REG PR STORAGE XCHG ;HL=COMMAND ROUTINE ADDRESS 
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DISK DRIVE WOES? PRINTER INTERACTION? 
MEMORY LOSS? ERRATIC OPERATION? 


DON’T BLAME THE SOFTWARE 


Power Line Spikes, Surges & Hash could be the culprit! 
Floppies, printers, memory & processor often interact! 
Our unique ISOLATORS eliminate equipment interaction 
AND curb damaging Power Line Spikes, Surges and Hash. 


VESPA 


IE SPA Clear up Software and System problems 
with an ISOLATOR! 


ALL ISOLATORS: ® 125 VAC, Standard 3-prong plug 
© 1875 W MAX Load - 1 KW/Socket or socket bank 
e Balanced Pi Filtered sockets or socket banks 
© Spike/Surge Suppression - 1000 Amps, 8/20 usec 
(SUPER ISOLATORS offer expended filtering and 
Spike/Surge Suppression capabilities) 


-3 individually filtered sockets 
-6 individually filtered sockets 
-2 filtered banks; 6 sockets 
-3 flitered banks; 9 sockets 


*SWITCHABLE ISOLATORS - ALL ISOLATOR advan tages 
combined with the versatility, convenience and utility of indi- 
vidually switched sockets. Each switch has associated pilot 
lite. 


1SO-6 -3 switched, filtered sockets 
1SO-8 -5 switched, filtered sockets 


$128.95 
161.95 


*SUPER ISOLATORS - Cure for severe interference problems. 


Useful for Industrial applications and heavy duty controlled 
equipment or peripherals. 

© Dual Balanced Pi Filtered sockets 

© Spike/Surge Suppression - 2000 Amps, 8/20 usec 

1SO-3 -3 super filtered sockets 

1SO-7_ -5 Superfiltered sockets 


*CIRCUIT BREAKER any mode! (add-CB) . ADD 7.00 
*CKT BKR/SWITCH/PILOT any model (CBS) ADD 14.00 


PHONE ORDERS 1-617-655-1532 
L297 Electronic Specialists, Inc. 


171 South Main Street, Natick, Mass. 01760 
Dept. 
696 


6809 3-100 205« 


SINGLE BOARD COMPUTER 


e MEETS |.E.E.E. S-100 STANDARD 
© ° 10 addressing modes 
@ © 24 indexed sub modes 
e auto increment/decrement 
© constant indexing from PC 


¢ 4K/8K/16K ROM 


e 2K RAM 


ROM/RAM relocatable on 4K boundary 
e ACIA; PIA; 8080 SIMULATED 1/0 


e 20 PARALLEL I/O LINES 


e 256 I/O PORTS 


ACIA provides RS-232 lines for asychronous com- 
munications with limited modem control at 8 select- 
able baud rates; |/O locatable at any 4K boundary 


e COMPREHENSIVE MANUAL WITH 


SOFTWARE LISTINGS 


e P.C. BOARD: SOLDERMASKED WITH 


PARTS LEGEND 


P.C. Board & Manual $69.95* + shipping 
e adSsMON: ADS MONITOR SUPPORTS 


BREAKPOINTS 


User definable interrupt service & more. 


Available in PROM, write for prices. 


Illinois residents add sales tax. 


*add $1.00 for shipping & handling 


Ackerman Digital Systems, Inc. 
110 N. York Rd., Suite 208, Elmhurst, Ill. 60126 (312) 530-8992 


computer mart 
of new jersey 


Computer Mart of New Jersey 
501 Route 27 
Iselin, N.J. 08830 
(201) 283-0600 


HOURS: 
Open at 10 am, 
Tuesday through Saturday 


the 
microcomputer 
people® 


THE VITAL 
INGREDIENT: 


EXPERTISE 


Before you buy your new 
microcomputer, chances are 
you have a lot of questions. 
Important questions that 
could mean the difference 
between a working system 
and a wasted system. The 
vital ingredient is expertise. 
The microcomputer people at 
Computer Mart are expert at 
answering your questions 
and helping you put together 
the best system for your 
application. Whether it’s for 
business, the home, or the 
laboratory; come see the 
experts at Computer Mart 

of New Jersey. We have the 
vital ingredient. 
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Dynatrace, cont'd... 


PCHL 
VDMO20: LXI 

SHLD 

IMP 


H, LINE1S 
CPOSIT 
VDMO15 


i 
;COMMAND LOCATOR TABLE 


a 

KEYTAB: DW 
Dw 
DW 


geeggegeeesers 


TURN: RET 


a 


LRSCR: MVI 
OUT 
LXI 
CLRO1O: MVI 
STAX 
INX 
MVI 
CMP 
JNZ 
LXI 
SHLD 
RET 


ETSCR: LXI 
SHLD 
MVI 
STA 
LXI 
SHLD 
LxI 
SHLD 
LXI 
SHLD 
MVI 
STA 
LxI 
SHLD 
MVI 
STA 
MVI 
STA 
MVI 
STA 
MVI 
STA 
MVI 
STA 
LXI 
SHLD 
LxI 
SHLD 
LXI 
SHLD 
MVI 
STA 
MVI 
STA 
STA 
INR 
STA 
RET 


UTURN 
BINARY 
CALSUB 
DUMPME 
UTURN 


CLEAR VDM ROUTINE 


A,0 
CONPRT 
B, SCREEN 
x's 

B 

B 

A,TOS AN 
B 

CLRO1O 
H, LINE15 
CPOSIT 


H, "PC? 
LINE1+5 
A,‘At 
LINE1+20 
H,"BC' 
LINE1+34 
H,'IN' 
LINE2+2 
H,'ST! 
LINE2+4 
Ae'R* 
LINE2+6 
H,"DE' 
LINE2+34 
A,'C! 
LINE3+15 
A,'z' 
LINE3+9 
A,'P! 
LINE3+13 
aA,‘*s* 
LINE3+8 
A, fAt 
LINE3+11 
H,'HL' 
LINE3+34 
H,'SP! 
LINE4+34 
H,'PS' 
LINE4+4 
A,"wW 
LINE4+6 
A,'0' 
LINE4+10 
LINE4+12 
A 
LINE4+14 


; (THIS IS REALLY A CALL TO A COMMAND ROUTINE) 
;RESET CURSOR 

7 

i 


END OF COMMAND PROCESSING LOOP 


7A-NOP 

7B-BINARY DISPLAY TOGGLE 

#C-CALL USER SUB-PROGRAM 

7D-DUMP MEMORY TO SCREEN 

;E-NOP 

7F-NOP 

;G-EXECUTE USER PROGRAM INTERPRETIVELY 
;H-NOP 

;I-SET EXECUTION SPEED OF INTERPRETER 
7J-NOP 

7K-NOP 

7L-LOAD REGISTER PAIR 

;M-STORE BYTES IN CONSECUTIVE MEMORY LOCATIONS 
;N-NOP 

7O-NOP 

7P-NOP 

7Q-NOP 

;R-READ PAPER TAPE 

7S-INTERPRET ONE INSTRUCTION 

;T-NOP 

;U-NOP 

7V-NOP 

7W-NOP 

7X-NOP 

7Y-NOP 

72-ZERO MEMORY 


;DUMMY ROUTINE FOR NOP'S 


;CONTROL PORT IINITIALIZATUON WORD 
7SEND 

7BASE ADDRESS OF VDM BUFFER 
sASCII SPACE 
;CLEAR 1 BUFFER WORD 
;UPDATE BUFFER POINTER 
ID OFFH ;LAST BUFFER ADDRESS +1 
;CHECK FOR END OF BUFFER AREA 
;DO UNTIL DONE 

;INITIAL CURSOR LOCATION 
7STORE TO CURSOR SAVE 
EXIT 


SET DISPLAY OF USER'S REGISTERS 


i 
;MOVE THE NUMBER OF BYTES INDICATED IN DE 
7FROM THE ADDRESS BEGINNING IN BC 

7TO THE ADDRESS BEGINNING IN HL 


i 
SETLNE: LDAX 


B ;GETBYTE 
MOV M,A ; TRANSFER 
INX H ;UPDATE DESTINATION POINTER 
INX B ;UPDATE SOURCE POINTER 
pcx D ;UPDATE COUNT 
MOV A,E ;CHECK FOR COMPLETION 
cpl i) 3 
JNZ SETLNE ; 
ov A,D 7 
CPI i) i 
JNZ SETLNE ; 
RET EXIT 
; 
; DISPLAY REGISTERS ROUTINE 
; 
7THIS ROUTINE DECODES THE USER'S REGISTER INFORMATION 
7 AND FORMATS IT FOR DISPLAY ON THE CRT SCREEN 
3 
DSREGS: PUSH B #SAVE ALL REGISTERS 
PUSH D 3 
PUSH H ; 
PUSH Psw F 
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DSRO1O: 


DSRO20: 


DSRO30: 


DSRO40: 


DSROSO: 


Os see 


SPHEX: 


LDAX 
RRC 
RRC 
RRC 
RRC 
ANI 
LXI 
ADD 
MOV 
MVI 
ADC 
MOV 
LDAX 
MOV 
INX 
LDAX 
ANI 
LXI 
ADD 
MOV 
MVI 
ADC 


D,PCl 
H, PCH+2 
DSPHEX 
D,PCi+1 
H,PCH 
DS PHEX 


D,STKPTR 


H,SPH+2 
DSPHEX 


D,STKPTR 


H, SPH 
DS PHEX 
D,BC 

H, BCH+2 
DS PHEX 
D,BC+1 
H,BCH 
DSPHEX 
D,DE 

H, DEH+2 
DS PHEX 
D, DE+1 
H, DEH 
DSPHEX 
D, HL 

H, HLH+2 
DS PHEX 
D,HL+1 
H,HLE 
DSPHEX 
D,AC 
H,ACCH 
DS PHEX 
STSWRD 
H,CYB 


M,'0' 
DSRO10 
M,'1' 


H, PB 
m,'0O' 
DSRO20 
M,'1! 


H, ACB 
M,'O* 
DSRO30 
M,'1! 


H,ZB 
M,'O' 
DSRO40 


M,‘'l' 


H,SB 
M,'0" 
DSROSO 
M,t1! 
PSW 


PSW 
D,AC 
H,ACCB 
DSPBIN 
D,BC 
H,BCB+9 
DSPBIN 
D,BC+1 
H,BCB 
DSPBIN 
D,DE 

H, DEB+9 
DSPBIN 
D, DE+1 
H, DEB 
DS PBIN 
D, HL 

H, HLB+9 
DSPBIN 
D, HL+1 
H, HLB 
DSPBIN 
PSW 

H 

D 

B 


D 


o 

be 
r= 
a 
ce} 
nm 
= 


’ 


o-v 


> > 


r= 
a 
a 
4 
4 


o> 


WrANwWoUTZoOwWyrOQND 


a % 


see Fae we 


CHECK FOR BINARY DISPLAY FLAG SET 


ONE IF NOT SET 


i? 
i 
i 
: 
i 
i 
; 
i 
i 
7 
i 
i 
7 


DECODE REGISTERS FOR DISPLAY ROUTINE 


;GET REGISTER CONTENTS 
;SCALE ACCUMULATOR DOWN TO GET UPPER HEX DIGIT 


#MASK OFF UNWANTED BITS 
;BASE ADDRESS OF ASCIIDIGIT TABLE 
7ADD ACCUMULATOR TO BC TO GET ADDRESS OF DIGIT 


;STORE ASCII CODE FOR HEX DIGIT 

7 INCREMENT SCREEN POSITION 

7GET REGISTER CONTENTS AGAIN 

;DO THE SAME FOR THE LOWER HEX DIGIT 
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> > 


DECODE REGISTER TO BINARY DISPLAY ROUTINE 


DSPBIN: LDAX 
MVI 
RAL 
MVI 
JNC 
MVI 
INX 
DCR 
JINZ 
RET 


DSPO10: 


DSP020: 


i 


D ;GET USER REGISTER CONTENTS 
c,8 7# OF BITS 
#SHIFT UPPER BIT TO CARRY FOR CHECKING 


M,'0' ;ASSUME ZERO 
DSP020 ;CHECK FOR ONE 
M,‘1* ;CHANGE IF ONE 
H sMOVE TO NEXT SCREEN POSITION 
c ;COUNT OFF 
DSP010 ;DONE? 
7YES 


#SIMULATOR CODE BEGINS HERE 


7 ONE 8080 INSTRUCTION 


STEP: LHLD 
SHLD 
MOV 
CPI 
Jc 
cPI 
JNC 
CALL 
RET 
CALL 
RET 
CPI 
JNC 
CALL 
RET 
CALL 
RET 


STPO10: 


STPO20: 


PEXEC: LXI 

DAD 
SHLD 
LHLD 
PUSH 
POP 
LHLD 
SPHL 
LHLD 
MOV 
MOV 
LHLD 
XCHG 
LHLD 
INSTR: DS 

SHLD 
PUSH 
POP 

SHLD 
LXI 

DAD 

SHLD 
XCHG 
SHLD 
LHLD 
SPHL 
MOV 
MOV 

SHLD 
RET 


mee 


OVE: MOV 
ANI 
MVI 
MOV 
LxI 
DAD 
MOV 
STA 
MOV 
RRC 
RRC 
RRC 
ANI 
MOV 
LXI 
DAD 
MOV 
STA 
MOV 
MVI 
CALL 
LXxI 
LXI 
LXI 
CALL 
CALL 
RET 


ARITHMETIC 


ese we we 


RITH: MOV 
LXxI 
ANI 
MVI 
MOV 
DAD 
PUSH 
MOV 
ANI 
LXI 
MOV 
DAD 
MOV 
POP 
MVI 
DAD 
MOV 


MOV COMMAND EXECUTION 


AS INDICATED BY THE USER'S PC REGISTER 
Pc 7GET USER'S PROGRAM COUNTER VALUE 


Pcl ;SAVE FOR LAGGING DISPLAY 
AM 7GET THE CONTENTS OF MEMORY LOCATION INDICATED 
40H ;CHECK FOR CODES 0-3F HEX 
STP010 ;LOW ORDER 64 OPCODES? 
80H 7NO, CHECK FOR 40-7F HEX 
STPO20 ;IS A REGISTER TO REGISTER MOVE INSTRUCTION? 
MOVE #YES, EXECUTE IT 
;RETURN TO MONITOR 
OPLOW ;LOW ORDER OP CODES 
;RETURN TO MONITOR 
OC OH ;CHECK FOR 80-BF HEX 
STP030 ;ARTHMETIC INSTRUCTION? 
ARITH 7YES, EXECUTE 
;RETURN TO MONITOR 
OPHIGH ;HIGH ORDER OP CODE 


;RETURN TO MONITOR 


EXECUTE INSTRUCTION ROUTINE 


H,O 
SP 
STKTMP 
STOMRD » 7LOAD REAL REGISTERS WITH USER'S DATA 


#SAVE MONITOR'S STACK POINTER 


PSW 
STKPTR 


HL 

3 INSTRUCTION TO BE EXECUTED IS STORED HERE 
; IF IT WILL NOT CAUSE LOSS OF CONTROL 

HL ;SAVE USER REGISTER VALUES 

PSW 

H 

STSWRD 

H,O 

SP 

STKPTR ; 


DE 
STKTMP ;GET MONITOR'S STACK POINTER 
H,B 
ranted 
BC 


ROUTINE 


B,A 7SAVE OP CODE 
07H ;DECODE SOURCE REGISTER 
D,0 Fy 
E,A ? 
H,RGSTRS i 
D ; 
AM ;GET REGISTER NAME 
MOVENM+6 ;SET UP NMEUMONIC 
A,B ;RESTORE OP CODE 
; 
z 
i 
O7H ;DO SAME FOR DESTINATION REGISTER 
E,A i 
H,RGSTRS i 
D ; 
ALM ? 
MOVENM+4 i 
A,B i 
B,l 7# OF BYTES IN INSTRUCTION 
MVINST ;COPY INSTRUCTION INTO EXECUTION AREA 
H, INSTA ;DISPLAY NMEUMONIC 
B,MOVENM 3 
D,8 : 
SETLNE 
OPE XEC O EXECUTE INSTRUCTION 


;DONE, 


INSTRUCTION EXECUTION ROUTINE 


B,A 7SAVE OP CODE 

H,ARITHN 7GET ADDRESS OF ARITH NMEUMONICS 
38H ;ISOLATE REGISTER OPERAND 

D,0 ; 

E,A 7 

D #7ADD INDEX TO GET APPROPRIATE NMEUMONIC 
H AVE TEMPORARILY 

A,B #RESTORE OPCODE 

O7H ;ISOLATE REGISTER OPERAND # - 

H,RGSTRS 7GET REGISTER NAME LIST ADDRESS 
E,A ; 

D ;ADD INDEX TO GET CORRECT REGISTER NMEUMONIC 
A,M ;GET NMEUMONIC 

H RETRIEVE INSTRUCTION NMEUMONIC ADDRESS 
E,4 t 

D ; 

MLA ;MOVE REGISTER NAME TO MEMORY 
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DCX 
DCX 
MOV 
MVI 
CALL 
LXI 
LXI 
POP 
CALL 
CALL 
RET 


i 
sARITHMETIC INSTRUCTION 


i 

ARITHN: DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 


OP CODES 0-3F 
OPLOW: MOV 
ANI 
RLC 
MOV 
MVI 
LxI 
DAD 
MOV 
MOV 
INX 
MOV 
XCHG 
PCHL 


LOW ORDER INSTRUCTION 


SP i 

SP ? 

A,B ;RESTORE OP CODE 

B,l 7SET # OF BYTES IN OPCODE 

MVINST ;MOVE INSTRUCTION TO EXECUTION AREA 
H, INSTA ;DISPLAY NMEUMONIC 

D,8 ; 

B 3 

SETLNE ; 

OPEXEC ;GO EXECUTE INSTRUCTION 


NMEUMONICS 


‘ADD Y 7ADD REGISTER TO ACCUMULATOR 
‘ADC . ;ADD REGISTER+CARRY TO ACCUMULATOR 
"SUB : ;SUB REGISTER FROM ACCUMULATOR 
"SBB J ;SUB REGISTER+CARRY FROM ACCUMULATOR 
"ANA . ;LOGICAL AND REGISTER WITH ACCUMULATOR 
"XRA , ;LOGICAL EXCLUSIVE OR REGISTER WITH ACCU 
‘ORA . ;LOGICAL OR REGISTER WITH ACCUMULATOR 
"CMP : ;COMPARE REGISTER WITH ACCUMULATOR 

EXECUTION ROUINE 
HEX 
E,A ;SAVE OP CODE 
O7H ;DETERMINE CLASS AND BRANCH TO APPRPRIATE ROUTINE 
C,A F 
B,0 7 
H,OPTAB ; 
B i 
A,E ? 
EM 3 
H 3 
D,M i 

i 


OP CODE SIMULATION ROUTINE LOOKUP TABLE 


; 

i 

i 

OPTAB: DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 


A=OP CODE, B= 


ad 


VINST: STA 

PUSH 
CALL 
MOV 

MOV 
SHLD 
POP 
LXI 

MVI 

STAX 
STA 
MVI 

MOV 

SHLD 
SHLD 
LxI 

SHLD 
LHLD 
INX 
DCR 
JZ 

MOV 
INX 
STAX 
INX 

PUSH 
PUSH 
PUSH 
CALL 
LHLD 
MOV 
INX 
MOV 
INX 
SHLD 
POP 

POP 
POP 
IMP 
SHLD 
RET 


MVIO1O: 


MVIO20: 


MOVE NMUMONIC 


MVNMNC: LXI 
PUSH 
LXI 
CALL 
POP 
MVI 
MOV 
INX 
MOV 
INX 
MOV 
INX 
MOV 
RET 


ANI 
RRC 
RRC 


GETO10: 


NPINST 3 
LXIDAD LXI & DAD ROUTINE POINTER 


NO-OP ROUTINE POINTER 


LDSTRX ; LDAX & STAX ROUTIN POINTER 
INXDCX ;INX & DCX ROUTINE POINTER 
INRDCR ; INR & DCR ROUTINE POINTER 
INRDCR ; SAME 

MVIMM ; MVI ROUTINE POINTER 

ROTATE ; ROTATE POINTER 

NO. OF BYTES 

INSTR ;STORE OP CODE TO EXECUTION AREA 


B ;SAVE NUMBER OF BYTES IN OP CODE 


HEXASC ;CONVERT OP CODE TO ASCII/HEX EQUIVALANT 
H,C ; TRANSFER FOR DOUBLE LENGTH STORE 

L,B F} 

INSTH ;STORE ASCII CODES OF OP CODE TO VDM BUFFER 


B ;RETRIEVE NUMBER OF BYTES IN INSTRUCTION 
D, INSTR+1 ;GET ADDRESS OF NEXT LOCATION IN EXECUTI 


A,0 ;ZERO NEXT 2 BYTES IN EXECUTION AREA 

D ; IN CASE INSTRUCTION<3 BYTES 

INSTR+2 ; 

He! * ;7CLEAR PREVIOUS EXECUTION FROM SCREEN 

L,H i 

INSTH+2 ; 

INSTH+4 ; 

H, INSTH+2 ;SET TO DISPLAY REST OF INSTRUCTION IF A 
STKTMP ;SAVE VDM BUFFER LOCATION OF ASCII/HEX DISPLAY A 
PC 7GET USER'S PROGRAM COUNTER 

H ;UPDATE IT 

B ;COUNT OFF NUMBER OF BYTES IN INSTRUCTION 

MVI0O20 ;EXIT IF DONE 

AM ;GET NEXT BYTE OF INSTRUCTION FROM USER'S PROGRA 


H ;UPDATE USER'S PROGRAM COUNTER 

D ;STORE BYTE TO EXECUTION AREA 

D ;UPDATE EXECUTION BUFFER POINTER 

B ;SAVE NUMBER OF BYTES IN INSTRUCTION 
D ;SAVE EXECUTION BUFFER POINTER 

H ;SAVE USER'S PROGRAM COUNTER 


HEXASC ;CONVERT NEXT BYTE OF INSTRUCTION TO ASCII/HEX C 
STKTMP ;RETRIEVE VDM BUFFER LOCATIN OF ASCII/HEX DISPLA 
M,B ;MOVE ASCII/HEX CODES OF CURRENT INSTRUCTION BYT 
H Fi TO VDM BUFFER AREA 
M,C ? 
H i 
STKTMP ;SAVE VDM BUFFER LOCATION AGAIN 
H #RETRIEVE USER'S PROGRAM COUNTER 
D #RETRIEVE EXECUTION BUFFER POINTER 

;RETRIEVE NUMBER OF BYTES LEFT IN INSTRUCTION 
MVIQ10 ;CONTINUE UNTIL ALL BYTES MOVED 
Pc ;STORE UPDATED USER'S PROGRAM COUNTER 

7EXIT 
TO BUFFER 
H, INSTA ;GET VDM BUFFER LOCATION OF MNEUMONIC DISPLAY AR 


D 7SAVE D REGISTER 


D,4 ;SET NUMBER OF BYTES TO TRANSFER 

SETLNE ;DO TRANSFER 

B 7GET OLD D REGISTER 

Det |! ;THE FOLLOWING CODE MOVES THE ASCII CHARACTERS 0 
M,D ; THE REGISTERS USED BY THE INSTRUCTION TO THE 
H ; THE VDM BUFFER AREA 

M,C 7 

H i 

M,B i 

H i 

M,D ; 


GET REGISTER PAIR ROUTINE 


30H #MASK REGISTER PAIR FIELD 
CALE FOR INDEXING 

i 
E,A ;BUILD INDEX IN DE 
D,O i 
H, REGPAR ;GET BASE ADDRESS OF REG PAIR MNEUMONICS 
D 7ADD INDEX 
GETO10+1 #SAVE POINTER 
0 70 IS REPLACED BY POINTER FROM ABOVE 
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Dynatrace, cont'd... oy a pPoeEaic ADDRESS FOR SUBROUTINE CALL 
LXI D,' ‘ j;SET REGISTER TO NULL 


CALL MVNMNC ;DISPLAY OP CODE 


el ee seen tAy OR eocer ROUTINE CALL CALL  OPEXEC ;EXECUTE INSTRUCTION 
RET ; RED } 
3 < 
. ; 
 pcacure<no“optabustar } GET REGISTER ROUTINE 
i 
J 3 
coiene: svi iB 4 saat The TRUCHEON DRIGSE GETREG: ANI 38H ;ISOLATE REGISTER DESIGNATOR BITS 
CALL = MVINST ;MOVE INSTRUCTION TO EXECUTION AREA RRC eee See 
LXI D,' ' NO REGISTER DATA one i 
ExT sBe bowoe I OEERY oF ee MOV E,A ;CONSTRUCT INDEX WORD 
MVI D,0 ; 
CALL {QEBXEG FEAECUTE: INSTRUCTION LXI H, RGSTRS ;GET BASE ADDRESS OF REGISTER CODES 
: ; DAD D ;ADD INDEX 
; MVI E,* ° ; OTHER REGISTER IS NULL 
i EXECUTE LXI AND DAD INSTRUCTIONS ROUTINE Hoe DM tGRT THIS REGISTER 
LXIDAD: MOV B,A ;SAVE INSTRUCTION CALL = MVNMNC ;DISPLAY OP CODE AND REGISTER 
3 RET 7 
ANI 08H ;ISOLATE LXI/DAD BIT : ' an Rigas 
MOV A,B ;RESTORE INSTRUCTION Teaeik be deye ce Sener a SEND ED 
Hee aT IT REUME TDA Ree ons OP1: DB LXI ' ;LOAD REGISTER PAIR IMMEDIATE ( ) 
INZ LXI010 DAD OR LXI? DB "DAD ' ;DOUBLE LENGTH ADD 
: LowoP2: DB '"STAX' ;STORE ACCUMULATOR INDIRECT THROUGH REG PAIR 
MVI B,3 7LXI, CHANGE INSTRUCTION LENGTH TO 3 BYTES 
LXI010: PUSH — PSW ;SAVE INSTRUCTION DESIGNATOR WHICH IS THE ZERO P pe SEEK, SARE EL TEe Ree ne neen THRINRE REG “PALE 
CALL  =MVINST ;DISPLAY OP CODE SEED. JeTORE Bhi 
POP PSW ;RETRIEVE FLAG DB ,EBLD «FLOAD BL DIRECT 
ve BS LOnepi tA Semis oar DB 'STA ' ;STORE ACCUMULATOR DIRECT 
ae Er020" TAD JERTS DB "LDA '  ;LOAD ACCUMULATOR DIRECT 
er BULONOBI” Fea Ua SA BL BOT ASEH LOWOP3: DB ‘INX '  ;INCREMENT REGISTER PAIR 
LXI020: CALL GETRP ; ISOLATE REG’ PAIR be (DEX |. IDECREMEWT REGISTER’ PAIR 
ET eg ed LOWOP4: DB ‘INR ' ;INCREMENT REGISTER 
noe ; LOWOPS: DB "DCR ' ;DECREMENT REGISTER 
: j LOWOP6: DB 'MVI '  jMOVE DATA IMMEDIATE TO REGISTER 
E LOWOP7: DB 'RLC | ;ROTATE LEFT THROUGH CARRY 
7 LDA STA LDAX STAX SHLD LHLD EXECUTION ROUTINE = ‘RRC ' ROTATE RIGHT THROUGH CARRY 
i : x 
LDSTRX: MOV C,A 7SAVE INSTRUCTION 2B aa : eae OR ENETES Se 
ANI 20H ;ISOLATE (LDX,STX)/(LHLD,SHLD,LDA,STA) BIT ' a oe UST ACCUMULATOR 
MOV A,c ;RESTORE INSTRUCTION Be teas) loomeremenee 
NZ LDS020 ; (LDX, STX) / (LHLD, SHLD, LDA, STA) ? bE seer LORE ea eye Se RUNUEATOR 
ANI o8H ;ISOLATE LDX/STX BIT Be Scue it.  COMBESHREyIGARRY 
HOV Arc p RESTORE, INSTRUCTION RGSTRS: DB "BCDEHLMA' ;REGISTER CODES 
MVI B,1 ;INSTRUCTION LENGTH IS 1 FOR BOTH REGPAR. Da ‘. 5 
PUSH PSW ;SAVE DESIGNATOR BIT ; foe ESP TEE eee OES onrs 
CALL = MVINST ;MOVE INSTRUCTION TO EXECUTION AREA EEBGEX (De MEE, BOR ROPERLN 7 STNLUS. ELAS 
POP PswW ;RETRIEVE DESIGNATOR BIT u 
LXxI B, LOWOP2 ASSUME STAX 
Jz LDSO10 ;STAX/LDAX? K A P 
LXI B, LOWOP2+4 ;LDAX, CHANGE MNEUMONIC POINTER BEYBDKS Ue Bier Ley a UnabeLRORTT GON 
LDSO10: CALL GETRP ;DETERMINE REGISTER PAIR xevoues tH RSTAT ;GHECK 3748 STATUS 
oMP LDS030  ;GO EXECUTE “aN KBDRDY |" ;LOOK FOR KEY BOARD READY 
LDS020: MVI B,3 ; (LHLD,SHLD,LDA,STA), SET LENGTH TO 3 BYTES Bes FEVO0S: TLLCOBTOH Glo DAR CRYATERBLE 
CALL = MVINST ;MOVE INSTRUCTION TO EXECUTION AREA i ean 
bes RC REstOne uaTaCTION IN KEYBRD GET DATA FROM ASCII KEYBO 
ANI 18H ;ISOLATE INSTRUCTION DESIGNATOR FSTRIP. OPP PARITY BIT 
RRC ;SCALE FOR INDEXING Pov Bek P SANE CBARACTER 
ee x sores (Embee CPI ESC ;CHECK FOR ESCAPE SEQUENCE 
ny te : INZ KEY007  ;WAS IT? 
; LXI SP, STACK ;YES, RESET STACK POINTER 
LXE B,Lomoreee rwpiG2™ BASE ADDRESS OF INSTRUCTION GROUP CALE: BNBEAR SSCROLE! UReouE ene 
in Bil SO SEPT ONTEORNCALE IMP VDMO15 ;RESUME SCAN LOOP 
ae cen ; KEYO07: CPI CR ;CHECK FOR CARRIAGE RETURN 
i ce a Jz KEY020 ;WAS IT 
ext Ribucie: Coreaneaavee) ro MUCE, KEYO10: MOV MA ;NO, DISPLAY CHARACTER 
. u NX H ;UPDATE CURSER 
LDS030: CALL OPEXEC EXECUTE INSTRUCTION ay At }CHECK FOR VDM BUFFER OVERFLOW 
5 5 CPI TOS AND OFFH 3 
i Jc KEY030 ; 
+ INX DCX EXECUTION ROUTINE KEY020: CALL BMPLNE ;SCROLL UP ON BUFFER FULL 
i ; LXI H, LINES ;RESET CURSOR TO BEGINNING OF LAST LINE 
INXDCX: ney cen Se eer OR aye KEY030: MOV A,B ;RESTORE CHARATER RECEIVED FROM KEYBOARD 
° 3 
CALL = MVINST ;MOVE INSTRUCTION TO EXECUTION AREA SHED: | {SPOBID. yBTORE: UPDATED CURSUTs 
ov eds RESTORE INSTRUCTION POP H ;RESTORE ORIGINAL CONTENTS OF HL 
PUSH —PSW ;SAVE IT AGAIN : BET ; 
ANI 08H ;ISOLATE DESIGNATOR BIT i 
LXI B, LOWOP3 ;ASSUME INX i 
Jz INXO10  ; INX/DCX? u 
LXI B, LOWOP3+4 ;DCX, CHAINGE POINTER BMPLNE: PUSH Hq #SAVE HL 
INXO10: POP PSW ;GET INSTRUCTION BACK eel e tee a 
CALL  GETRP ;DETERMINE REG PAIR i 
CALL  OPEXEC. ;EXECUTE INSTRUCTION PUSH = PSW FSAVE PSW 
nee : LXI H, MIDSCR ;BUPFER ADDRESS TO MOVE OLD DATA TO 
; LXI B,MIDSCR+LINE jBUFFER ADDRESS TO GET OLD DATA FROM 
dun BERS MVI E,8 ;NUMBER OF LINES TO BE SCROLLED 
: AECUPIOW ROUTINE BMPO10: PUSH D ;SAVE 
; LXI D,64 | ;NUMBER OF CHARACTERS PER LINE 
INRDCR: mov ce eee a Cre — CALL SETLNE ;SCROLL ONE LINE AT A TIME FROM THE TOP DOWN 
5 3 POP ; 
CALL = MVINST ;MOVE INSTRUCTION TO EXECUTION AREA DCR E ie Chae OPE CGE G ee eee 
MOV A,C ;RESTORE INSTRUCTION NZ BMPO10 ;DO UNTIL DONE 
fg BILOMORA Ee eS a hemene aie MVI A,' ' STE TO SPACE OUT LAST LINE 
hee Ate ie ER MVI D,64 —;BLANK OUT ALL CHARACTERS ON LAST LINE 
a INBOIO? LEMnvneee LXI H, LINE15 ;GET ADDRESS OF FIRST CHARACTER OF LAST 
3 ? BMP020: MOV MA ;BLANK IT OUT 
LXI B, LOWOPS 7DCR, CHANGE POINTER ane IEDR IPOTNTER 
INRO10: LDA STKTMP ;GET INSTRUCTION BACK DCR D a CUNT. DOWD 
CALL GETREG ;DETERMINE REGISTER aie BADOOO).. (HO WHTEEE NOT (DONE 
CALL OPEXEC ;EXECUTE INSTRUCTION LXI H LINE1S - ;RESET CURSOR 
RET ; : 
; ; SHLD CPOSIT ; 
i POP SW ;RESTORE ORIGINAL REGISTER CONTENTS 
i MVI EXECUTION ROUTINE POR ‘ : 
3 Pi ‘ 
MVIMM: MOV C,A ;SAVE INSTRUCTION es B : 
MVI B,2 ;THESE ARE ALL 2 BYTE INSTRUCTIONS RET x 
CALL = MVINST ;MOVE INSTRUCTION TO EXECUTION AREA 7 i“ 
MOV A,Cc 7RESTORE INSTRUCTION ; 
LXI B, LOWOP6 ;SET POINTER MVI MNEUMONIC 4 
7 R 
Ate, | Seneee SO RECUEE aaa her Teak BINARY: LDA BINFLG GET BINARY DISPLAY FLAG 
cae i CMA ;TOGGLE IT 
i STA BINFLG ;PUT IT BACK 
I ALE Rac’ PAL RANDAR Can-ere cone CALL CLRSCR ;RESET SCREEN 
’ [ei . 
7 EXECUTION ROUTINE eon ait 
i , ; 
ROTATE: MOV C.A ;SAVE INSTRUCTION 3 
MVI B,1 ;THESE ARE ALL ONE BYTE INSTRUCTIONS ; 
CALL MVINST ;MOVE INSTRUCTION TO EXECUTION AREA GTLMTS: CALL BMPLNE ;SCROLL UP 
Mov A,Cc ;RESTORE INSTRUCTION LXI B,FROM ;DISPLAY FROM MESSAGE 
ANI 38H ;ISOLATE DESIGNATOR BITS LXI H, LINE1S ; 
RRC ;SCALE FOR INDEXING LXI D,5 ; 
MOV E,A zCONSTRUCT INDEX CALL SETLNE ; 
MVI D,0 ; LXI H, LINE15+5 ; 
LXI , LOWOP7 ;GET BASE OF ADDRESS OF MNEUMONICS SHLD CPOSIT ; 
DAD D ;ADD INDEX CALL GETADR ;GET ONE HEX NUMBER OF UP TO 4 DIGITS 
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SHLD BASE ;THAT WAS THE BASE ADDRESS 
CALL BMPLNE ;SCROLL UP 
LXI B,TO ;DISPLAY TO MESSAGE 
LXI H, LINE15 3 
LXxXI D,3 ; 
CALL SETLNE ; 
LxI H, LINE15+3 3 
SHLD CPOSIT ; 
CALL GETADR ;GET ONE HEX NUMBER 
XCHG 7MOVE TO DE 
LHLD BASE 7GET BASE ADDRESS 
CALL BMPLNE ;SCROLL UP 
RET i 
i 
i 
DUMPME: CALL GTLMTS ;GET DUMP LIMITS 
DMPO10: PUSH D ;SAVE LAST ADDRESS 
CALL DMEM16 ;DISPLAY 16 BYTES 
POP D ;GET LAST ADDRESS 
MOV A,E ;SEE IF LAST ADDRESS EXCEEDED 
SUB L i 
MOV A,D ; 
SBB H ; 
JP DMPO1O ;CONTINUE DUMPING IF NOT 
RET i 
i 
GETBYT: MVI E,2 ;GET TWO CHARACTERS FROM KEY BOARD 
IMP GTAOOS ;GO AROUND NEXT ENTRY POINT 
GETADR: MVI E,4 ;GET 4 CHARACTERSFROM KEYBOARD 
GTAOOS: LXI H,O ;START WITH ZERO 
GTAO10: CALL KEYBDI ;GET ACHARACTER FROM THE KEYBOARD 
cel CR ;CHECK FOR TERMINATOR 
Jz GTAO20 ;EXIT ON END OF NUMBER 
CALL ASCHEX ;CONVERT CHARACTER TO HEX DIGIT 
MOV C,A ;POISITION FOR ADD 
MVI B,0 ; 
DAD H ;MULTIPLY HL BY 16 
DAD H i 
DAD a i 
DAD H 7 
DAD B 7ADD LAST CHARACTER RECIEVED 
DCR E ;COUNT OFF NUMBER OF DIGITS 
INZ GTAO10 ;DO UNTIL COUNT EXAUSTED OR CARRIAGE RETURN 
GTAO20: RET : 
i 
i 
ASCHEX: SBI ‘o' ;SUBTRACT OFF ASCII BIAS 
JM ASCO1O = ;CHAR<O0? 
CPI 10 7NO, 
RC ;DONE IF CHAR<=9 
SBI O7H ;ADJUST FOR ALPHA BIAS 
CPI LF 7 
Jc ASCO1lO ; 
cpl 10H 7CHAR>OFH? 
RC 7NO, RETURN 
ASCO10: MVI A,O ;RETURN ZERO IF ILLEAGLE 
RET ; 
i 
;DUMP 16 BYTES TO TTY 
i 
DMEM16: MOV A,L DISPLAY ADDRESS 
CALL HEXASC ; 
PUSH B ? 
MOV A,H 7 
CALL HEXASC ; 
LXI D,LINE15 ; 
XCHG : 
MOV M,B ; 
INX H 7 
MOV M,C 3 
INX H 3 
POP B i 
MOV M,B ; 
INX i; 3 
MOV M,C 3 
MVI B,16 #NUMBER OF BYTES TO DISPLAY 
DMEO10: PUSH B ;SAVE 
INX H ;UPDATE ADDRESS 
LDAX D ;GET BYTE FROM MEMORY 
INX D ;UPDATE POINTER 
CALL HEXASC ;CONVERT TO ASCII CHARACTERS AND DISPLAY 
INX H ; 
MOV M,B ; 
INX H ? 
MOV M,C ; 
POP B 2 
DCR B ? 
INZ DMEO1O = ;DO UNTIL ALL 16 DISPLAYED 
CALL BMPLNE ;SCROLL UP 
XCHG ’ 
RET ? 


i 
;CONVERT BYTE IN ACCUMULATOR TO ASCII DIGITS 


i 

HEXASC: PUSH 
PUSH 
LxI 
MOV 
ANI 
MOV 
MVI 
DAD 
MOV 
MOV 
ANI 
RRC 
RRC 
RRC 
RRC 
MOV 
LXI 
DAD 
MOV 
POP 
POP 
RET 


eorav0comoevzirgo 


x 


;SAVE DE 
7SAVE HL 

;GET BASE ADDRESS OF ASCII CODE 
;SAVE DATA 

#RO LOWER HEX DIGIT FIRST 

;SET UP FOR INDEXING 


; 

7ADD INDEX 

;GET CHARACTER 

7RESTORE DATA 

;DO UPPER HEX DIGIT 
7SCALE DOWN FOR INDEXING 


#SET UP FOR INDEXING 

;GET BASE ADDRESS OF ASCII CODES AGAIN 
7ADD INDEX 

;GET CHARACTER 

;RESTORE HL 

;RESTORE DE 


- 
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;LOAD REGISTERS FROM KEYBOARD ROUTINE 


LOADRG: 


LOAO10: 


LOA020: 


LOA030: 


LDREGS: 


CALL 
LXI 
MVI 
MOV 
MOV 
CMP 
Jz 
INX 
DCR 
INZ 
RET 
MOV 
DCR 
RLC 
MOV 
MVI 
PUSH 
CALL 
XCHG 
POP 
MOV 
ANA 
JINZ 
PUSH 
LXI 
DAD 
MOV 
INX 
MOV 
POP 
LxI 
DAD 
MOV 
INX 
MOV 
CALL 
RET 
DB 


KEYBDI 
H, LDREGS 


o> 


E 


3 
> 
So 
D 


"AHDBSP' 


;GET REGISTER IDENTIFIER 
;DETERMINE SELECTED REGISTER 
76 POSSIBLE REGISTER PAIRS 
;SAVE REGISTER DESIGNATOR 
;GET ONE FROM MEMORY 
;CHECK AGAINST SELECTED REGISTER PAIR 
#MATCH 
7NO, KEEP LOOKING 


;RETURN IF NOT FOUND 
;GET INDEX NUMBER 
sADIUST 

SCALE 

7SET UP INDEX 


iSAVE INDEX 
;GET A HEX NUMBER FROM KEYBOARD 


;RELOCATE NUMBER TO LESS CONVENIENT REGISTER 


7GET INDEX BACK 

;MOVE TO ACCUMULATOR 

;SET FLAGS 

;IS IT THE PC REGISTER? 

YES, 

#GET ADDRESS OF USER'S PC REG 
;THIS IS REDUNDANT 

TORE DATA TO USER'S PC REGISTER 


STORE DATE TO USER REGISTER 


; 
i 
7 
i 
; 
i 
i 
7 
i 
; 


7POSSIBLE REGISTER DESIGNATIONS 


i 
7STORE DATA TO MEMORY ROUTINE 


7 
MEMSTR: 
MEMO10: 


MEMO20:; 


CALL 
PUSH 
LHLD 
MVI 
MOV 
INX 
SHLD 
CALL 
MOV 
cPI 
JINZ 
POP 
RET 
MOV 
POP 
MOV 
INX 
MP 


GETADR 
H 
CPOSIT 
A,'-' 
M,A 

H 
CPOSIT 
GETBYT 
A,E 

2 
MEM020 
H 


A,L 
H 

M,A 

H 
MEMO10 


i 
;CALL USER SUBROUTINE 


CALSUB: 


LHLD 
MVI 
MOV 
INX 
SHLD 
MVI 
STA 
CALL 
SHLD 
CALL 
CALL 
CALL 
CALL 
RET 


;HIGH ORDER 


i 
OPHIGH: 


i 
HOPTAB: 


a 
HIGHOP; 
HIHOP1: 


HIHOP2: 
HIHOP3: 


HIHOP4: 
HIHOPS5: 


HIHOP6: 


MOV 
ANI 
RLC 
MOV 
MVI 
LXxI 
DAD 
MOV 
MOV 
INX 
MOV 
XCHG 
PCHL 


CPOSIT 
A,'-! 
M,A 

H 
CPOSIT 
A,OCDH 
INSTR 
GETADR 
INSTR+1 
BMPLNE 
OPEXEC 
CLRSCR 
SETSCR 


INSTRUCTION 


PSINST 


IMMEDT 
RESTRT 


'R ‘ 
"POP ' 
‘RET ' 
‘*NOP" 
*PCHL* 
"SPHL' 
"J ' 
‘gmp ' 
"*NOP! 
‘out ' 


7GET BEGINNING ADDRESS 
;SAVE IT 

#GET CURSOR POSITION 
;DISPLAY PROMPT 


i 

; UPDATE CURSOR 

;RESTORE UPDATED CURSOR 

;GET A DATA BYTE 

;GET NUMBER OF BYTES RECIEVED 
;CHECK FOR NONE RECIEVED 

ANY DATA RECIEVED? 

;NO, RESTORE HL 

;GET OUT OF HERE 

;MOVE DATA BYTE TO ACCUMULATOR 
;GET ADDRESS BACK 

;STORE DATA TO MEMORY 

;UPDATE ADDRESS 

;CONTINUE 


;GET CURSOE POSITION 
;DISPLAY PROMPT 


i 

;UPDATE CURSOR POSITION 

;RESTORE CURSOR 

;LOAD ACCUMULATOR WITH A CALL INSTRUCTION 
;MOVE TO EXECUTION AREA 

;GET ADDRESS OF SUBROUTINE TO BE EXECUTED 
;STORE ADDRESS TO EXECUTION AREA PLUS ONE 
7SCROLL UP 

;EXECUTE SUBROUTINE 

;CLEAR ANY GARBAGE FROM SCREEN 

;SET UPSCREEN AGAIN 


DECODE ROUTINE 


;SAVE INSTRUCTION 
;DETERMINE SUB CLASS 
;SCALE FOR INDEX 
;POSITION FOR INDEXING 


;GET HIGH ORDER INSTRUCTION TABLE BASE A 


;ADD INDEX 
;RESTORE INSTRUCTION 
;GET ADDRESS OF INSTRUCTION ROUTINE 


7MOVE TO HL 
7PASS CONTROL TO APPROPIATE ROUTINE 


#RETURN 
7; POP 
7JUMP 
#MISC 
7CALL 
7; PUSH 
; IMMEDIATE 
;RESTART 


#CONDITIONAL RETURN 

7 POP 

;UNCONDITIONAL ROUTINE 
;UNIMPLEMENTED OP CODES 
#INDIRECT JUMP 

;LOAD STACK POINTER WITH HL 
;CONDITIONAL JUMP 
;UNCONDITIONAL JUMP 
;UNIMPLEMENTED OP CODE 
;OUTPUT 

INPUT 

7EXCHANGE HL AND TOP OF STACK 
;EXCHANGE HL AND DE 
;DISABLE INTERRUPTS 

7ENABLE INTERRUPTS 
;CONDITIONAL CALL 

7; PUSH 

;UNCONDITIONAL CALL 
;UNIMPLEMENTED OP CODE 

;ADD IMMEDIATE 
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DB 
DB 
DB 
DB 
DB 
DB 
DB 
HIHOP7: DB 


‘ACI ' 
*sur ' 
‘SBI * 
"ANI ' 
"XRI ' 
‘ORI ' 
*CPI; * 
"RST '' 


;DETERMINE CONDITIONAL F 


i 

GTFLAG: ANI 
PUSH 
RRC 
RRC 
MVI 
MOV 
LXI 
DAD 
MOV 
STAX 
INX 
INX 
MOV 
STAX 
LxXI 
POP 
CALL 
RET 


i 
; 
i 
TSTFLG: ANI 
ORI 
STA 
LHLD 
PUSH 
POP 
MVI 


CPomrrweerore9 


= 
z 
= 
a 


TEST FLAG FOR CONDITION 


38H 

OC OH 
TSTO1O 
STSWRD 
H 

PSW 
Aryl 


"d CALL 
Dynat t Ret 
s 
ynatrace, conrd.. oO 
;ADD IMMEDIATE WITH CARRY CALL 
;SUBTRACT IMMEDIATE CALL 
;SUBTRACT IMMEDIATE WITH BORROW . = 
;AND IMMEDIATE XSDE: " 
;EXCLUSIVE OR IMMEDIATE ALL 
;OR IMMEDIATE GARE, 
;COMPARE IMMEDIATE ; 
PRESIAEE CONDITIONAL 
7 
ERG RQUEINE CLINST: PUSH 
;ISOLATE CONDITION BITS oone 
7SAVE HL mi 
#SCALE FOR INDEXING ae 
; LXI 
; 
;CONSTRUCT INDEX LXI 
ET BASE ADDRESS OF FLAG CODES CALL 
;ADD INDEX POP 
}GET FLAG CODE 
;STORE TO VDM BUFFER ANA 
;UPDATE POINTER ; 
; UPDATE FLAG LOCATOR CALO10: va 
;GET SECOND CHARACTER OF FLAG ; BCG 
;DISPLAY IT Ss 
;OTHER CHARACTERS ARE BLANK MOV 
;GET OLD HL Hey 
iDISPLAY OP CODE ate 
r SHLD 
LHLD 
DCX 
; ISOLATE FLAG moy 
;ASSEMBLE A RETURN ON CONDITION INSTRUCTION exe 
;STORE FOR LATER EXECUTION pox 
;GET USER STATUS WORD HOY 
sMOVE TO REAL FLAGS ots 
i . 
Ke i 
;A=1 MEANS CONDITION TRUE Ys eeeseeeowit 


TSTO1O: RET 
MVI 
RET 


4,0 


i 
;CONDITIONAL JUMPS 


;THIS IS REPLACED BY A CONDITIONAL RETURN 4 
; i 
;CLEAR A IF CONDITION FALSE RETURN: PUSH 


MVI 
CALL 
POP 


i 

JUMP:  LHLD PC ;GET USER PROGRAM COUNTER eer 
PUSH H ;SAVE IT LXI 
PUSH PSW ;SAVE PSW CALL 
MVI B,3 ;THIS IS 3 BYTES POP 
CALL MVINST ;MOVE INSTRUCTION TO EXECUTION AREA CALL 
POP PSW ;GET PSW BACK ANA 
PUSH PSW ;SAVE IT AGAIN RZ 
LXI H, HIHOP2 ADDRESS OF MNEUMONIC RETO10: LHLD 
LXI B, HIHOP2+1 ;ADDRESS TO PUT FLAG INTO MoV 
CALL GTFLAG ;WHAT CONDITION? STA 
POP Psw ;GET INSTRUCTION BACK INX 
CALL TSTFLG ;TEST CONDITION MOV 
POP H ;GET PC AGAIN STA 
ANA A ;CHECK RESULT OF FLAG TEST INX 
RZ RETURN IF RESULT WAS NEGATIVE SHLD 
INX H ;UPDATE PC RET 
MOV A.M ;GET ADDRESS TO JUMP TO ; 
STA PC ;AND STORE TO USER'S PROGRAM COUNTER ;MISCELAEOUS 
INX H 3 : 
MOV A,M ; S ' 
sch ees ; serene DB 

; RET ; PPINST: PUSH 

#THIS ROUTINE PROCESSES ALL IMMEDIATE MODE COMMANDS Suz 

3 

IMMEDT: MOV C,A 7SAVE INSTRUCTION POPO1O: tx 
MVI B,2 7ALL ARE 2 BYTES LXI 
CALL MVINST ;MOVE INSTRUCTION TO EXECUTION AREA CALL 
MOV A,Cc ;RSTORE INSTRUCTION POP 
ANI 38H 7DETERMINE TYPE OF IMMEDIATE INSTRUCTION PUSH 
RRC ;SCALE FOR INDEXING ANI 
MOV E,A #POSITION FOR INDEXING RRC 
MVI D,O ? RRC 
LXI H, HIHOP6 ;GET BASE ADDRESS OF IMMEDIATE CODES MOV 
DAD D ;ADD INDEX MVI 
MOV B,H POSITION FOR SUBROUTINE CALL LXI 
MOV c,L ; DAD 
LXI D,' ' ;OTHER CHARACTERS ARE BLANK MOV 
CALL MVNMNC ;DISPLAY MNEUMONIC MOV 
CALL OPEXEC ;EXECUTE INSTRUCTION LXI 
RET ; LXI 

i 

;MISCELANEOUS INSTRUCTIONS Sg 

i 

MISC: PUSH Psw ;SAVE INSTRUCTION CALL 
ANI 38H ;DETERMINE TYPE ae 
RRC ; RET 
MOV E,A ; NOTPOP: POP 
MVI D,O ; cP 
LXI H, HIHOP3 z INZ 
DAD D MVI 
MOV c,L ; CALL 
MoV B,H ; LXI 
LxI De" LXI 
CALL MVNMNC ;DISPLAY CODE CALL 
POP PSW ;GET INSTRUCTION MP 
cPl 0E3H ; NOTRET: CPI 
JNC XSDE ; JNZ 
CPI 0D3H i MVI 
anc 10 ; CALL 
CPI OCBH ; LXI 
INC NOOP ; LXI 
MVI B,3 i CALL 
CALL MVINST ; LHLD 
LHLD PC ; SHLD 
DCX A 7 RET 
MOV AM z NTSPHL: CPI 
STA Pc+l ? INZ 
DCX H 7 MVI 
MOV AM ; CALL 
STA Pc i LXI 
RET i LXI 

NOOP: LXI B, HIHOPS+8 CALL 
LXI oo! OF LXI 
CALL MVNMNC ; MOV 
MVI B,l 7 STA 
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MVINST 


B,2 
MVINST 
OPEXEC 


B,l 
MVINST 
OPEXEC 


CALL ROUTIN 


B,3 
MVINST 
PSW 

PSW 

H, HIHOP4 
B,HIHOP4 
GTF LAG 
Psw 
TSTFLG 

A 


PC 
STKPTR 


RETURN 


PSW 
B,1 
MVINST 
PSW 
PSW 


E 


; 
+1 ; 


H, HIGHOP ; 
B,HIGHOP+1 ? 


GTF LAG 
PSW 
TSTFLG 
A 


STKPTR 
A,M 

Pc 

H 

A,M 
PC+1 

H 
STKPTR 


STACK INSRUCTIONS 


aa D 


PSW 

08H 
NOTPOP 
B, HIHOP1 


B,l 
MVINST 
OPEXEC 


PSW 

OC 9H 
NOTRET 
B,1 
MVINST 
B,HIHOP1 
a 
MVNMNC 
RETO10 


MVINST 
B,HIHOP] 


HH PsWwt ; 


4 


ee a ee er orci 


eS 
a 


12 
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LHLD CPOSIT 
CALL BMPLNE 
CALL SETLNE 


INX a ‘ CALL BMPLNE 
MOV A.M ; RET 
STA PC+1 ; ; 
RET ; ; 
7 ? 
;PUSH AND UNCONDIT i 
: TONAL CALL TAPEIN: MVI c,0 : 
PSINST: PUSH PSW ; MVI A,OFFH ; 
ANI 08H d ouT SWTCHS ; 
‘INZ CALLUN ; BBLK: CALL INPUT ; 
LXI B,HIHOP5 ; CPI 3AH i 
IMP POPOlO ; JNZ BBLK 
CALLUN: POP PSW i MVI B,0 ; 
CPI OcDH : CALL RDBYTE ; 
INZ NOOP 3 MOV DrA ; 
LHLD Pc ; CALL RDBYTE ; 
PUSH H ; MOV H,A ; 
MVI B,3 ; CALL  RDBYTE ; 
CALL MVINST ; MOV L,A ? 
LXI B,HIHOP5S+4 ? CALL RDBYTE ; 
LXxI D,’ ' 9 MOV E,D Fi 
LXI H, INSTA INR E 3 
CALL = MVNMNC EDiO: = BER E i 
POP B aes toze 7 
M , 3 
; IMP CALO10 aed : 
;RESTARTS ouT SWTCHS i; 
; CALL RDBYTE ; 
RESTRT: PUSH —PSW ; ey’ Bigs ; 
MVI B,1 ; cMP M ; 
POP PSW i INK _ i 
PUSH  PSW : Jz LD10 i 
ANI 388 ; MVI C,20H ; 
RRC ; RET i 
RRC : LD20: MOV A,H ; 
RRC ; CMA ; 
CALL HEXASC ; PALE ae 3 
4 ; 
ney es ' 7 MOV A,B ; 
LXI B, HIHOP7 ; Eig Dis 
CALL = MVNMNC_ ; ; 
LHLD = PC ; wt Crxl0H 3 
oes : NBLK: MOV A,D ; 
LHLD = STKPTR ; : ’ j 
Dcx F ORA aA ; 
MOV. M,D : INZ BBLK ; 
pcx H ; : . BET i 
MOV M,E ; i 
SHLD STKPTR ; 3 
POP PSW ; U 
ANI 38H ! RDBYTE: PUSH D 7SAVE LENGTH 
Mov L,A : CALL INDIGT ;GET 1 HEX DIGIT FROM TAPE 
MVI ra) ; ADD A ;MULTIPLY BY 16 
SHLD PC ; ADD A ; 
RET ; ADD A A 
F ADD A ; 
;THE GO ROUTINE CONTROL! Mov DLA #SAVE MSD 
: TROES (SIMULATED EXECUTEON: OPC USER. PROGRAMS CALL —«INDIGT ;GET NEXT HEX DIGIT FROM TAPE 
Go: LHLD  CPOSIT ; ORA D ;COMBINE HEX DIGITS TO FORM BYTE 
MVI Raat MOV D,A }SAVE BYTE WHILE DOING CHKSUM 
Mov MIA | ADD B ;ADD CHKSUM TO THE NEW BYTE 
INX H MOV B,A ;REPLACE OLD CHKSUM WITH NEW 
SHLD CPOSIT ; MOV A,D ;GET NEW BYTE BACK 
CALL GETADR ; POP D ;RESTORE LENGTH 
SHLD PC ; RET 
CALL = BMPLNE  ; ; 
LXI B,STPADR ; 3 
LXI D,8 ; 3 
LXxI H, LINE15S Fy INDIGT: CALL INPUT ;READ A FRAME FROM TAPE 
CALL  SETLNE ; CPI '9'41 | ; INSPECT DATA 
LXI H, LINE15+8 ; OM INDO10 ;OK IF DATA < 10 
SHLD  CPOSIT ; ADI 9 ;ELSE ADJUST FOR ASCII BIAS 
CALL GETADR ; INDO10: ANI OFH REDUCE MOD 16 
CALL = BMPLNE ; RET ; 
XCHG i; ; 
GO0l0: LHLD PC ; i 
Mov A,D A INPUT: IN RSTAT  ;GET READER STATUS FROM 3P+S 
SUB H ; ANI RDRRDY ;TURN OFF NON READER BITS 
INZ Goo20 ; INZ INPUT LOOP UNTIL DATA AVAILABLE 
MoV A,E ; IN READER ;GET DATA 
SUB L ? ANI 7FH 7CLEAR PARITY BIT 
RZ ? RET : 
Go020: PUSH D ; 3 
PUSH 4H ; ;TAPE READER ROUTINE ERROR MESSAGES 
LHLD INSTSP ; ; 
G0030: DCX H ; ERRMES: DB "CHECK SUM ERROR ' 
MVI D,10H Fi DB "MEMORY FAILURE ' 
GO040: DCR D ; ; 
INZ Goo40) i; ;THIS ROUTINE ZEROES A BLOCK OF MEMORY 
MOV A,H 3 z 
ANA A ; ZERMEM: CALL GTLMTS ; 
JNZ G0030 ; ZERO10: MVI A,O 3 
CALL STEP ? MOV M,A 3 
CALL DSREGS ; INX H ; 
POP Hq ; Mov A,D ; 
POP D ; SUB H ; 
IN KSTAT ; INZ ZEROLO ; 
ANI KBDRDY ; MOV A,E ; 
RZ ;REPLACE WITH RNZ FOR BOARDS WITH INVERTED I/O STATUS SUB L ; 
JMP Goolo ; INZ ZERO1O ; 
STPADR: DB "STOP AT-' ; RET ; 


i 
;THIS ROUTINE READS INTEL FORMAT TAPES 


SPEED: CALL KEYBDI 


i 
READTP: CALL BMPLNE 
CALL ASCHEX 


CALL TAPEIN 


; ? 
MoV a,c ; ADL oH 
RZ ; isle) rA ; 
MVI B,0 ; MVI L,0 ; 
LXI D163 MVI AV1OH ; 
= | mie 
A 3 ’ 7 
LXI H, ERRMES- ; SHLD _—INSTSP_ ; 
DAD B ‘ CALL = BMPLNE ; 
MOV B,H : RET 4 
MOV CL ; INSTSP: DW 0400H_ ; 

7 

4 

| 

, END 
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THE CP/M CONNECTION 


Chris Terry 


Part 1 - Interfacing To the Operating System: Relocating CP/M 


The CP/M system requires at least 16K of 
contiguous RAM for a minimal system. Page 0 is 
always reserved for entry points, file control 
blocks, and a 128-byte buffer used for command 
input from the console and as the default disk 
input/output buffer. Other buffer locations can be 
specified by an application program with a function 
call to BDOS. 

The CP/M system proper is always located at 
the top of the available memory; in the minimal 16K 
system distributed by most disk controller 
manufacturers, the CCP starts at 2900H and the 
CBIOS at 3EOOH. When more memory becomes 
available, the system can be relocated to the top of 
the new memory, so as to leave more room in the 
Transient Program Area (TPA) for application 
programs and data. This feature makes CP/M 
extremely versatile, because the addressable 
memory area above the RAM block can be used for 
PROM containing I/O routines and utilities without 
conflicting in any way with the CP/M requirements. 

Four CP/M utilities are required for creating a 
relocated system and putting it on afresh diskette: 


MOVCPM 
ASM 

DDT 
SYSGEN 


Obviously, moving the CCP, BDOS, and CBIOS 
to a new location requires that all of the CALL and 
JMP addresses be changed to fall within the new 
system area. Equally obviously, we cannot change 
anything in the system that is currently up and 
running orit would crash. Therefore, to relocate the 
system, we use the MOVCPM utility, which 
contains a complete set of the system machine 
code. If we wish to create anew 32K CP/M system, 
we invoke MOVCPM with the command: 


A>MOVCPM 32 * 


MOVCPM now changes all the CALL and JMP 
addresses in its internal version of CP/M to suit the 
size we have requested (in this case, 32K), and 
then places the reconstructed CP/M code in the 
TPA with the Boot (Cold Start Loader) starting at 
900H, the CCP starting at 980H, and the BIOS 
starting at 1E80H. Now it tells us that the new 
system is ready for SYSGEN or for the command: 


Chris Terry, 324 E. 35th St., New York, NY 10016 


32 


SAVE 32 CPM32.COM 


and DDT will automatically put the reconstructed 
CP/M at the right place (980H). 

Let’s look at figure 1. We see that our Boot has 
to be loaded at 900H. The execution addresses in 
BOOT.HEX start at 0000, and if we just used the 
simple Read (R) command of DDT, that is where the 
Boot would be loaded. However, DDT allows us to 
use an OFFSET with the read (R) command; this 
offset is added to every load address. We calculate 
it by taking the difference between the address 
where we want loading to start and the ORG 
address of the file. If BOOT is ORGed at 0000, the 
offset is O900OH-O000=900H; if BOOT is ORGed at 
80H. the offset is O900-O080H=880H. If we don’t 
have a hex calculator (such as the TI Programmer), 
we canuse the hex arithmetic command (H) of DDT; 
the command: 


-H900,80 


will cause DDT to give us first the sum (980) and 
then difference (880) of our two numbers. So, to 
overlay the MDS Boot with our own, we give the 
commands: 


-IBOOT.HEX 

-R900 (if ORG is 0000) 
or 

-R880 (if ORG is 80H) 


Things become a little more tricky when we 
come to the CBIOS. Look at figure 1 foramoment. 
Moving the Boot to the Memory Image area was 
simple, because we were moving it upward. But to 
get the CBIOS shifted from its execution address of 
7EO0 to 1E80 in the Memory Image area, we have to 
shift it DOWNWARD. Unfortunately, DDT can only 
ADD an offset to, not subtract it from, the file load 
address. However, we can still use a positive offset 
that will bring us to the right place, because the 
CPU address counter has only 16 bits; thus, if we 
add 1 to address FFFF we get 10000 -- but the 
counter has no place to put the leftmost digit, sowe 
come back to 0000. We see, then, that to shift a 
program downward in memory, we have to give DDT 
an offset that will push the program up off the top of 
memory and bring it upward through the bottom. A 
Two’s Complement subtraction of the larger 
address from the smaller will do precisely this. 

We know that for a 16K system the offset is 
980-2900=E080, and since 3E00 is the execution 
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CP/M Connection, cont'd... 


address of CBIOS, it will be found in the Memory 
Image area at: 


3E00 + E080 = 11E80 = 1E80 


We also know that the start of the CCP in our 
new system is 2900+4000=6900, so the offset for 
our new system is 980-6900=A080. If we add this 
to the start of our new CBIOS, which is 
3E00+BIAS=7e00, we find that 
7E00+A080=1E80. Bingo! Now, to overlay the 
MDS BIOS (which was put in the Memory Image 
area at 1E80 by MOVCPM) we tell DDT: 


-ICBIOS.HEX 
-RAO80 


11E80 OUT OF MEMORY, SO 


BECOMES 01E80 
11E80-7E00 = A080 


c 
7E00 °° DESIRED 


picceiBbes 


BIAS 
4000 


epee 


CO RRENT: 


9pio 18008 eK 


MEMORY IMAGE 


}1E80 CBIOS 
_CcP/BDOS 


SYSGEN 


980_ 


BOOT 


BOOT nen ee 
0000 ke 


FIGURE 1. HOW RELOCATION WORKS 


We can forget about SYSGEN at this point, 
because the Boot and the BIOS generated by 
MOVCPM are for the Intel MDS system and 
chances are that not even the console I/O would 
work, let alone the disk commands. So we save the 
COM file, as instructed. 

Now we have some preparation work to do, so 
that we can overlay the MDS Boot and BIOS with 
the Boot and CBIOS supplied by our controller 
manufacturer and previously modified to work with 
our system I/O. First, we must calculate the BIAS 
for our new system; that is, the amount by which 
every CP/M instruction is shifted upward. 
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MOVCPM took care of this for the CCP and BDOS 
instructions, but we need it to find where to ORG 
our own CBIOS. We are going to move the system 
up by 16K; since 4096 decimal (4K) is equivalent to 
1000 hex, it follows that our BIAS for a 32K system 
is going to be 4x1000=4000H. We have to apply 
this BIAS to three items: 


In the Coldstart Loader, to set: 
(1) the address at which CP/M will be loaded, 
and 
(2) the address to which the loader will jump to 
start CP/M running; 

In the CBIOS, to set: 
(3) the ORG address. 


Let’s look at the ASM listing of the Boot (using 
our editor), and find out where it executes. It will 
almost certainly be either 0000 (as in the case of 
the Tarbell disc controller board) or 80H (as in the 
case of the Thinker Toy board). We make a note of 
the ORG address, but do not changeit. If we find an 
MSIZE EQU 16 statement, this will be used by the 
assembler to compute the load address (1) and the 
jump address (2); we need only change it to MSIZE 
EQU 32. If we do not find an MSIZE equate, the 4th 
executable statement will be LXI H,2900H; we 
change the operand to LXI H,6900 (=2900+BIAS). 
The 3rd statement of the RBLK1 routine will be JZ 
SEOOH; we change this to JZ 7EOOH 
(=3E00+BIAS). 

Next, we must go into the CBIOS.ASM file 
with our editor, and look at the ORG statement. 
Once again, if we find an MSIZE equate statement, 
that is all we need to change. The Assembler will 
do the rest. 

lf we do NOT have an MSIZE statement, but 
instead find ORG 3EOOH (or any other absolute 
address), we have to change the ORG address to 
3E00+BIAS (in this case 7EOO). Assuming that we 
don’t want to make any changes to the peripheral 
drivers (for console, list, reader, or punch), we can 
exit from the editor. 

Now we use ASM to reassemble the CBIOS at 
the new address. It’s a good idea to let the 
assembler create a PRN listing with all the 
addresses and object code, and to print this right 
away. We can then ERAse CBIOS.PRN, which 
takes up alot of room on the disk and is not required 
any more. Before going any further, let’s check the 
directory and make sure that we do indeed have the 
CPM32.COM, CBIOS.HEX, and BOOT.HEX files. 


CALCULATING OFFSET 

At this point we have to remember that every 
COM and .HExX file contains built-in instructions on 
where to load it. We shall have no trouble with the 
CPM32.COM which we saved previously, because 
MOVCPM arranged for the reconstructed CCP and 
BDOS to be loaded into the Memory Image area 
starting at 980H, even though they will execute at 
2900+BIAS (6900 in this case). We have only to 
give the command: 


A>DDT CPM32.COM 
33 


asnoverM 32. *——————-feconsrucesysem 
CONSTRUCTING 32K CP/M VERS 1.4 OM '5 reply 


READY FOR "SYSGEN" OR 

"SAVE 32 CPM32.COM" 

A>SAVE 32 cPM32.coM ve the NEW SYSTEM 
A>ASM TTCBIOS 

CP/M ASSEMBLER - VER 1.4 RISE/ONE edized CO/OS 
3F 4D 


004H USE FACTOR 
END OF ASSEMBLY 


A>ASM TTBOOT—_ : 2 
CP/M ASSEMBLER - VER 1.4 Hern hfe eg ted Looe 
0100 


O0O01H USE FACTOR 
END OF ASSEMBLY 


_ BK tor rectory 


A>WDIR 

-WORK oll ASM COM COPY3 COM CUTER COM 
DDT COM DIAPRINT HEX DPRT12 COM INTLIZE ASM 
IODVRS ASM MOVCPM COM NEWCBIOS ASM NTARBIOS ASM 
NTARBIOS ASN+1 NTARBIOS HEX PAGE COM PIP COM 
SAP COM SBOOT4O ASM SBOOT4O HEX SBOOT40 PRN 
STAT COM SUBMIT COM SYSGEN ASM SYSGEN COM 
SYSGEN HEX SYSGEN PRN SYSGEN PRN+1 SYSGEN SYM 
TARBIOS4 ASM TARBIOS4 ASM+l1 TARBIOS4 HEX TTBOOT ASM 
TTCBIOS ASM WDIR COM WM COM XFER COM 
CBIOS64 HEX CPM64 COM SBOOT64 HEX PINIT COM 
CPM32 COM TTCBIOS , PRN TTCBIOS HEX TTBOOT PRN 
TITBOOT HEX 

A> 

A>DDT_CPN32.coM—————Ge7 new SsYSTeMp lato Merpry lage 
NEXT PC Wea 
2100 0100 

-~1TTBOOT. HEX ————_Cvea7ve £C6 far Coor 


-R880 


NEXT PC Overlay MOS ae Wit) OWS 


“ET TOn LlosieE ——— ee FCO for COYOS 

NEXT. PC Qverlay MOS Of09 with ours 

* bee Abyp wvs7%e9 COmplere ; relooy CU rent SYSTER 
SYSGEN VER 8 reply 


FOR PERTEC SINGLE DENSITY DISK 
SOURCE DRIVE NAME (OR RETURN TO SKIP) Kept n DECHUSE WE Dave 
/ 


DESTINATION DRIVE NAME (OR RETURN TO REROOT)B M, /. 
DESTINATION ON R, THEN TYPE RETURN CHVOl Y IAGE 
FUNCTION COMPLETE 

DESTINATION DRIVE NAME (OR RETURN TO REBOOT) Write CW SST Ey 


7] 
Kerry, 70 reLoo7 
FIGURE 2. SAMPLE RELOCATION JOB IS ENT VO. Wid 
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If it should be necessary at this stage to make 
minor changes to the CBIOS, it is now easy to fine 
the address at which the change is to be made. Any 
address in the Memory Image area can be found by 
adding the offset to the execution address shown in 
the CBIOS.PRN listing of the re-assembled CBIOS. 
We can then use either the DDT Substitute (S) 
command to insert the new hex values or, if several 
successive instructions are to be changed, we can 
use the DDT A (Assemble) command which allows 
complete instructions to be inserted using the Intel 
mnemonics for operation and register codes, and 
hex values for addresses or constants. 

The CP/M System Alteration Manual has all 
this information; there is even a table of offsets for 
various system sizes. But for some reason | and 
many others have great difficulty in getting the 
procedure clear. Perhaps the CP/M manual gives 
us too much, too quickly -- that is why | have 
spreadout this description. 


THE USES OF ’SYSGEN’ 

At this point, the Memory Image areacontainsa 
complete 32K CP/M system with the correct 
CBIOS and Boot for our own configuration. We now 
use the SYSGEN utility to write the new system out 
to Tracks O and 1 of a fresh, formatted disk. The 
complete sequence of commands is shown in 
figure 2, with comments. 

Note that when SYSGEN asks SOURCE DRIVE 
NAME (OR RETURN TO SKIP), we hit Return 


coupler. 


for units not in warranty. 


LOW PRICE—$359.%— 


Potomac Micro-Magic, 


Write for brochure: 
First Lincolnia Bldg., Suite B1 
4810 Beauregard St. 

Alexandria, Va. 22312 
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HE MM-103 DATA MODE 
AND COMMUNICATIONS ADAPTER 


bus compatible 


HIGH QUALITY 


-50 dBm sensitivity. Auto answer. Auto originate. Auto 
dialer with computer-controlled dial rate. 61 to 300 baud 
(anywhere over the long-distance telephone network), 
rate selection under computer control. Flexible, soft- 
ware-controlled, maskable interrupt system. 


ASSEMBLED & TESTED 


For Modem plus shippin aon 
AND Coupler rain == 


FCC APPROVED 


Both the modem and telephone system interface are 
FCC approved, accomplishing all the required protective 
functions with a miniaturized, proprietary protective 


WARRANTY 


One year limited warranty. Ten-day unconditional 
return privilege. Minimal cost, 24-hour exchange policy 


because we already have the reconstructed 
system in the memory area. However, when we are 
not relocating CP/M, but merely putting the 
existing system, unchanged, onto a new disk, we 
do not need to use DDT to get the current system 
into the Memory Image area. When SYSGEN asks 
for the source drive, we tell it A, and CP/M is read 
from Tracks O and 1 of our current system disk into 
the Memory Image area. Then, when SYSGEN asks 
for the destination, we tell it B, and write the system 
out to a new disk. 


COPYING THE SYSTEM FILES 

SYSGEN does not handle anything except the 
CP/M system itself. The utilities, such as ASM, ED, 
DUMP, LOAD, etc., must be handled separately. 
The files on our current system disk can be 
transferred over to the new system either by the 
CP/M Users’ Group utility COPY.COM, or by the 
command 


A>PIP B:=A:*.*[V] 


COPY transfers a whole track at a time, 
verifying each sector but not reporting until the end. 
PIP transfers one file at a time, verifies the new file 
against the old, and reports the name of the file 
transferred, so it takes somewhat longer. PIP will 
be our choice if we want to be selective, copying 
only the .COM files, for example. 

In the next part of this article | will discuss 
handling the I/O byte. 


& handling 


Call for further information: 
\ ig, VOICE: (703) 750-3727 
“<——7) MODEM: (703) 750-0930 (300 baud) 
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NorthStar Topics 


A Spooling Program and Much More 


The program described here is an extension to the 
North Star DOS which implements input/output 
redirection, a printer SPOOL and a command stack. 
The word SPOOL is an acronym for Simultaneous 
Printing of Output on Line. The word “simulta- 
neous” is used in the sense of driving multiple 
printers. | have borrowed the acronym and also 
changed its meaning in this application. This 
program allows the redirection of all character 
input/output which use the N*DOS drivers (located 
at 2900H-29FFH in the single density DOS). This 
means that all character |/O can use the device 
specified and/or use a disk file. This feature 
provides a lot of flexibility for transferring data 
between programs which can typically be done only 
on those “big” systems. This program will also drive 
a printer from a disk file while the computer is 
waiting for terminal input, so | feel the “SPOOL” 
acronym applies. 

Here is a list of the features of this program: 

—Full 1/0 redirection for a terminal, printer and disk 
files of type 7. , 

—Multiple commands can be entered on one line 
using the “command stack.” 

—An “operating system” is included which allows 
buffered or unbuffered access to any North Star 
disk file. 

—A significant amount of error checking is done 
(the exception is hard disk errors). 

The program is 2.5K bytes long (the same size as 
the N*DOS) which includes buffer space for a read, 
write and printer spool file. This implementation is a 
stand alone program which can be located anywhere 
in memory (only slight adjustments are required to 
put the program in EPROM memory). The “operating 
system” provides entry points to open an existing 
file, to do blocked read and write, unblocked read 
and write (i.e. one byte-at-a-time access of disk 
files), to close and create a new file. These are 
capabilities found in operating systems like CP/M. 
This “operating system” uses file control blocks and 
provides for a pseudo-dynamic file system. If a new 
file is created with a length of zero, all available disk 
space is used. When this file is closed, the disk 
space is adjusted to the amount actually used. 

| first started developing this program two years 
ago. It has evolved into it’s present form which | feel 
is the easiest to implement. The only “personaliza- 
tion” required is to tell the program the address of 
the terminal status port and the bit which indicates 
when a character is ready (bit is set) on the 
keyboard. The N*DOS 1/0 drivers don’t provide this 
function and this program needs to know how to 
detect when a character is ready on the keyboard. 


Randy Reitz, 26 Maple St., Chatham Township, NJ 07928 
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Randy Reitz 


The first part of this article will discuss I/O 
redirection, the command stack and the printer 
spool sections of the program. The second part will 
discuss the “operating system” and the error 
handling routines. This program will work with 
N*DOS release 4.3 or 5.1S. | do not have double 
density and | suspect that the changes required to 
accomodate double density would not be trivial. 

The program begins with constant declarations. 
The only constant which needs to be changed for 
release 4.3 is DOSPTNR (change to 28FAH). All of 
the references to the DOS program, except the 
DOSPTNR constant, are documented in the N* 
System Software Manual. As | will soon discuss, 
output can be directed to a disk file while the DOS is 
requested to list the contents of the disk directory. | 
found that the DOS does not expect any other disk 
activity to be occuring while it is printing the 
directory. In order to request a DOS directory look 
up (using entry DLOOK) while the DOS already has a 
directory maintenance activity in progress, the 
2-byte value at location DOSPTNR must be 
preserved. The N*DOS is not designed to be a 
reenterant program. The references to the MDS 
firmware assume a standard PROM is installed at 
E800H. 

This program’s origin is at 1600H and three 
256-byte buffers follow starting at 1DOOH. These 
addresses place the entire program and buffers in 
the 2.5K bytes immediately below the DOS. These 
addresses can be changed to place the program and 
buffers anywhere in memory. They don’t have to be 
in contiguous memory locations. The only consid- 
eration required to locate the program in EPROM is 
to move the storage area at the end of the program 
to a suitable memory address as well as the jump 
vectors for the DOS 1/0 routines. If the program is 
named “DOSPOOL”, then the N*DOS command 
“GO DOSPOOL” will load the program and jump to 
1600H. The program begins with a jump over the 
constants needed to determine if a character is 
ready on the keyboard and the hold area for the DOS 
1/O jump vectors. 

This program begins by inserting itself between 
the DOS user programs and the DOS 1/0 routines. 
The initialization routine at DOSPOOL changes the 
addresses in the DOS to jump to this program’s 
character input and output routines. The addresses 
currently used by the DOS are stored in the JMP 
instructions labeled USRCOUT and USRCIN. The 
addresses for the command stack are then 
initialized and finally the terminal status port and 
keyboard mask are written into the program. If you 
implement the program in EPROM, you should 
insert these two bytes before “burning” the 
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EPROMS. As | mentioned before, the program 
needs to determine when a character is ready on the 
terminal keyboard. This is required when the 
program is driving the printer from a disk file while 
waiting for terminal input. The values given are for 
the standard HORIZON serial port. The initialization 
is now finished so the DOSPOOL routine returns to 
the DOS. The DOS will immediately enter at SPLCIN 
by requesting terminal input. 

The program continues with the routines used for 
character input/output. The I/O redirection is 
controlled by the IOFLAG byte which is similar to 
the lOBYTE used in CP/M. If the IOFLAG byte is 0, 
all 1/O uses the device specified by the value of the 
A-reg when the input/output routine is entered. The 
individual bits in IOFLAG are set using escape 
sequences (this is a two character sequence, the 
first character of which is an escape - ASCII 27). 

The SPLCIN routine is entered by the DOS 
whenever the DOS or a user program (e.g. N* BASIC) 
requests a character from the device specified in the 
A-req. Since the routines which redirect I/O to the 
disk use a lot of stack space, the SPLCIN (and 
SPLCOUT) routine reset the machine stack to the 
area provided at address IOSTK. The main character 
input routine FETCH is called by SPLCIN. When 
FETCH returns with bit 7 reset, SPLCIN returns to 
the calling program with the character in the A-reg 
and all registers restored. 

The FETCH routine is long because it recognizes 
the escape sequences which control the value of the 
IOFLAG byte and the names of the spool files. Since 
the command stack is given the highest priority, 
FETCH begins by checking if the command stack is 
active. If so, the next character is taken from the 
stack and returned to the calling program. The 
command stack is used by separating commands on 
a line by the logical end-of-line character (| chose 
“I”-ASCII 124). The escape and “I” characters are 
special to the FETCH routine. If you have to return 
one of these characters to the calling program, you 
need to type them twice. A typical example which 
uses the command stack is: 


CR STUFF 23/TY STUFF 2 <CR> 


By typing this line, the DOS program would 
receive the CR STUFF 23 part of the line normally 
when the carriage return ( <CR> ) key is typed at the 
end of the line. During typing, the “I” would stop 
sending characters to the calling program and enter 
all remaining characters typed into the command 
stack. The <CR> key typed at the end of the line is 
sent to the calling program. When the calling 
program returns for more characters, all‘ characters 
up to the next “Il” or the actual end-of-line are 
returned to the program along with another <CR>. 
| use this feature to stack commands so my disk 
drive motors do not shut-off due to my slow typing. 
Another feature of the command stack is that the 
escape sequence ESC § will cause the FETCH 
routine to start sending characters from the current 
contents of the command stack. If you have one 
command or a series of commands you want to 
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execute repeatedly, you can put them in the stack by 
starting a line with a “lI” character and then type the 
command (or commands separated by “I” charac- 
ters) followed by a <CR> character. The <CR> 
will be sent to the calling program; but then typing 
an ESC S will send these command(s) to the calling 
program whenever desired. 

After the command stack is checked, the next 
check in the FETCH routine is to see if the read disk 
spool is active. The appropriate bits in the IOFLAG 
are checked, and if active, all input is read from the 
read spool file. This will! continue until the read 
spool file reaches an end-of-file condition or any 
character is typed on the terminal keyboard. Both of 
these conditions will stop the read spool until the 
IOFLAG byte is cleared. One character is read from 
the read spool file whenever a device code of 8 is 
used. The IOFLAG byte contains a bit which will 
cause the input device code of 8 to be ignored and 
passed to the user’s CIN routine. 

At the point KEYBD in the FETCH routine, neither 
the command stack or input spool file is active, so a 
character is obtained from the requested input 
device. The GETCP routine is used which will drive 
the printer with the contents of a printer spool file 
while waiting for the user to type a character. Once 
GETCP returns with a character, the special 
characters of ESC and “I” are checked. If these 
characters are not found, the character typed is 
returned to the calling program. If a_ logical 
end-of-line character (“I”) is found, control is 
transferred to LDSTK which will continue to read 
characters into the command stack. The remainder 
of the FETCH routine handles the escape sequen- 
ces. Here is acomplete list of escape sequences: 


Char after ESC Function 
0 Zeroes the IOFLAG byte which clears 
any spool errors and stops the print 
spool. 
1 Directs all output to both the printer 


(device 1) and the terminal (device 0). 


2 Opens the print spool and begins 
printing, if the print spool was 
already open then printing resumes. 


aS 


Directs all output to the terminal and 
write spool file. 


8 Reads all input from the read spool 
file until end-of-file or any character 
is typed. 

@ SPLCIN and SPLOUT will ignore the 


device code in the A-reg. SPLCIN 
will pass the device code to the 
user’s CIN routine. SPLOUT will 
force a device code of 0. 


R Displays the current name of the 
read spool file. Type a <CR> if no 
change is desired or else type the 
name of the file. Use N*DOS file 
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North Star, cont'd... 


Char after ESC Function 


name conventions. Use a BS char to 
correct typing errors. 


WwW Same as R but for write spool file 
name. 
oO Same as R but for print (output) 


spool file name. 


AS Start sending characters from cur- 
rent contents of command stack. 
Continues until end of stack. 


AC Close current write spool file and set 
file length to number of blocks used. 


ESC Send the ESC character to the calling 
program. 


I Send the “I” character to the calling 
program. 


If the R, W and O commands are used to examine 
the name of a spool file only, the status of the file is 
not changed. Hence, the 0 and 4 commands can be 
used to append characters to the end of an existing 
write spool file that is open. If the name of a spool 
file is changed, the file is closed. Therefore, to 
restart a spool file from the beginning, merely retype 
its name. If a spool error occurs during a read or 
write spool file operation, the error bit in the 
IOFLAG is set and spooling stops. The 0 command 
will clear the IOFLAG and spooling can be resumed 
at the point of the error if possible. Finally, if a 
program is writing to device 4 (the write spool file), 
the program can close the write spool file by writing 
an SOH character (ASCII 1). Similarly, the read spool 
will terminate when an SOH character is found. 

The SPLOUT routine is not as long as the SPLCIN 
routine. This routine also resets the machine’s stack 
pointer and then checks if the write spool file is 
active in the IOFLAG. One problem in the SPLOUT 
routine is that when a program is reading from 
device 8 (the read spool file) it may “Echo” 
characters to device 8 also. | chose to ignore these 
echoes so that a read and write spool can be active 
simultaneously. 

The next routines implement the command stack. 
The entry GOSTK will pull characters from the stack 
and the entry LDSTK will put characters from the 
stack and the entry LDSTK will put characters onto 
the stack. When loading characters onto the stack, 
the BS (backspace) character is used to delete the 
previous character typed. Also the characters 
entered on the stack are echoed to device 0. This 
may be a problem if some other input device uses 
the command stack. 

The next routines are the spool drivers. Entry 
GETSPL will read one character from the read spool 
file. If the read spool file is not open, SPLSRCH is 
called to open the file. RDERR is used to report (on 
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device 0) any error that occurs on the open. RDDISK 
will get the next character from the file. If the 
character is a CR , then CKEYBD is used to 
detect if a key has been hit on the keyboard (device 
0). Typing any key while the read spool is active will 
stop the read spool. Spooling can be resumed by 
first clearing the IOFLAG byte with ESC 0. If the 
program is reading from device 8 then spooling will 
resume, else an ESC 8 will do it. The errors that are 
detected are bad filename, file not found, file type 
error and length error. 

Entry PUTSPL will write a character to the write 
spool. If the write spool is not open, SPLSRCH is 
called to open the file. If the file doesn’t exist, 
CREATE is called to create the file using as much of 
the disk space as is available. If an SOH character is 
recieved, the write spool file is closed. The errors 
that are detected are disk write protected, disk full, 
length error and bad filename. 


Entry GETCP will drive a printer if bit 1 is set in 
the IOFLAG (ESC 2). If this bit is not set, control is 
transferred to GETCHAR which waits for a character 
to be typed, or else PRACT is called. This routine 
checks if the print spool file is open and opens it if 
required. This routine will loop at location PRLOOP 
while checking the keyboard with GETSTAT. 
PRLOOP expects to be driving a printer at 30 CPS. 
When there are 38 characters left in the buffer, 
STRTM is called to start the disk drive motors. When 
there are 8 characters left in the buffer, SELECT is 
called to load the disk drive head. These constants 
can be varied to suit your printer so that the printing 
will not stop while the disk drive turns on. This 
“nice” feature was really necessary since the N*DOS 
will loop for I-sec after turning on the disk drive 
motors. If this happens, no character typed on the 
keyboard would be found until the DOS returned. 
This would cause an unacceptable slowdown in 
typing. The errors that are detected are bad 
filename, file not found, file type error and length 
error. 

The SPLSRCH and CLSPOOL routines are short 
interface routines to the “operating system.” The 
next routines display and allow the names of the 
three spool files to be changed. A name is 
considered changed if any character other than a 

CR __ is typed. When the name of a spool file is 
changed, it is considered to be closed. Finally, 
some miscellaneous routines are given in the 
listing. The “operating system” will be discussed in 
the next part. 

| find that | use this program most frequently to 
transfer data between programs. Although | began 
by implementing a spool file to drive a printer, the 
possibilities available by writing and reading spool 
files quickly became more important. 


—PROGRAM BEGINS NEXT PAGE— 


Introduction To CP/M 


Part IV of the “Introduction To CP/M,” by Jake 
Epstein, will be continued in the next issue of S-100 
MICROSYSTEMS. Regretfully, the manuscript 
arrived too late for inclusion in this issue. 
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0B 


os 
08 


00 
FF 
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SF 
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00 


ic 


ic 
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0005 
0010 
0015 
0020 
0025 
0030 
0035 
0040 
0045 
0050 
0055 
0060 
0065 
0070 
0075 
0080 
0082 
0085 
0090 
0095 
0100 
0105 
0110 
0115 
0120 
0125 
0130 
0135 
0140 
0145 
0150 
0155 
0160 
0165 
0170 
0175 
0180 
0185 
0190 
0195 
0200 
0205 
0210 
0215 
0220 
0225 
0235 
0236 
0240 
0245 
0250 
0255 
0260 
0265 
0270 
0275 
0280 
0285 
0290 
0295 
0300 
0305 
0310 
0315 
0320 
0325 
0330 
0335 
0340 
0345 
0350 
0355 
0360 
0365 
0370 
0375 
0380 
0385 
0390 
0395 
0400 
0405 
0410 
0415 
0420 
0425 
0430 
0435 


LINE FEED 
CARRIAGE RET 


*ASCII CONSTANTS 
CTRLC EQU  'C'-40H 
CTRLS EQU  'S'-40H 
BELL equ 7 

ESC EQU  1BH 

LF EQU 10 

BS EQU 8 

CR eQU 13 
RUBOUT QU 7FH 

* 

*EXTERNAL REFERENCES - DOS 


cour EQU 200DH 
CIN EQU  2010H 
DLOOK EQU 201CH 
DWRIT  EQU  201FH 
DCOM EQU 2022H 
DOSERR EQU 202CH 
DOSPTNR EQU 28B7H 
DOSENTR EQU 2028H 
* 

*EXTERNAL REFERENCES 


DRVSEL EQU 2003H 
READA EQU OEB10H 
RESET EQU OEB9OH 
NOSEL EQU SoH 
mo EQU 10H 
cc EQU  OEBH 
* 
*OTHER CONSTANTS 
SPLPRG EQu 16008 
SPLBUF EQU  1D00H 
* 

ORG  SPLPRG 
* 


CHARACTER OUT ROUTINE 
CHARACTER IN ROUTINE 

FILE DIRECTORY LOOKUP 
WRITE A DIRECTORY BLOCK 
ISSUE A DISK COMMAND 

FILE NAME OR DSK WP ERR 
POINTER ADDRESS IN REL 5.1 
DOS RE-ENTRY POINT 


- MDS FIRMWARE 


CONTAINS CURRENT DRIVE SELECTED 
READ A STATUS 

RESET MOTOR TIMER 

FLAG FOR NO DRIVE SELECTED 
MOTOR-ON BIT 

CONTROLLER COMMAND 


*THE "GO DOSPOOL" COMMAND ENTERS HERE 
* 


JMP DOSPOOL 


* 
*HERE ARE THE CONSTANTS 


NEEDED TO DETERMINE 


*IF A CHARACTER IS READY ON THE KEYBOARD 
* 


STATPRT DBs 3 


KBDMSK DB 2 
* 


THE “ADDRESS” OF THE STATUS PORT 
THE KEYBOARD READY BIT 


*HOLD THE JUMP VECTORS FOR DOS 1/0 ROUTINES 
* 


USRCOUT JMP 
USRCIN JMP 
* 


USRCOUT 
USRCIN 


*INITIALIZE THE SPOOLING PROGRAM 

*CHANGE THE CHARACTER I/O ADDRESSES IN DOS 
*AND INITIALIZE THE PROGRAM CONSTANTS 

* 


DOSPOOL: LHLD CIN+]1 — GET USER'S INPUT ROUTINE ADDR 
SHLD USRCIN+1 
LHLD COUT+1 GET USER'S OUTPUT ROUTINE ADDR 
SHLD USRCOUT+1 
LXI  H,SPLCIN GET SPOOL INPUT ROUTINE ADDR 
SHLD CIN+1 SO DOS COMES HERE 
LXI H,SPLCOUT SAME POR OUTPUT ROUTINE 
SHLD COUT+1 
LXI H, LOCSTK START OF COMMAND STACK 
SHLD STACK 
LxI  #,0 
SHLD RDSTK COMMAND STACK EMPTY 
SHLD IOFLAG 
MVI A, OPFH 
STA LOCSTK+160 MARK END OF CMD STACK 
LDA STATPRT “ADDRESS" OF KEYBOARD STATUS PORT 
STA GETSTAT+1 
LDA KBDMSK KEYBOARD READY BIT 
STA GETSTAT+3 
RET 
* 
*THESE ROUTINES IMPLEMENT COMMAND STACK AND DISK SPOOL 
* 
* IOFLAG BITS HAVE FOLLOWING MEANINGS WHEN SET 
* BIT 0 - ALL OUTPUT TO PRINTER AND CRT 
* BIT 1 - PRINT SPOOL IS ACTIVE 
* BIT 2 - ALL OUTPUT TO WRITE SPOOL AND CRT 
* BIT 3 - ALL INPUT FROM READ SPOOL (KEYBOARD DISABELED 
* EXECEPT FOR “C) 
* BIT 4 - IGNORE DEVICE NUMBER IN A-REG (USED FOR 
* PROGRAMS WHICH DO NOT FOLLOW DOS CONVENTIONS 
* FOR USE OF A-REG TO SIGNAL DEVICE NUMBER) 
* BIT 7 - SPOOL ERROR, READ/WRITE SPOOL DISABLED 


* 
*INPUT ROUTINE, 


READ A CHARACTER FROM KEYBOARD 


*OR FROM COMMAND STACK OR FROM DISK SPOOL 
* 


0440 

0445 

0450 SPLCIN: PUSH H 

0455 LXI -H,0 
0460 DAD SP 

0465 LXI SP, IOSTK 
0470 PUSH Ht 

0475 PUSH D 

0480 PUSH B 

0485 STA IODEV 
0490 Loop: CALL FETCH 
0495 TESTS: aM LOOP 
0500 POP B 

0505 FIN: POP D 

0510 POP a 

0515 SPHL 

0520 POP H 

0525 ORA A 

0530 RET 

0535 * 

0540 * 

0545 * 

0550 * 

0555 * 

0560 FETCH: LXI  D,RDSTK 
0565 LHLD RDSTK 
0570 MOV A,H 
0575 ORA L 

0580 JNZ  GOSTK 
0585 LXI-H, IOFLAG 
0590 LXI -D, RDFILE 
0595 MOV A,M 
0600 ANI 88H 
0605 aM $43 
0610 JNZ  GETSPL 
0615 MOV A,M 
0620 ANI 108 
0625 JNZ  KEYBD 
0630 MOV A,M 
0635 ORA A 

0640 JM KEYBD 
0645 LDA IODEV 
0650 CPI 8 

0655 Jz GETSPL 
0660 KEYBD: LXI  D,PRFILE 
0665 CALL GETCP 
0670 LXI_D, RDSTK 
0675 LHLD STACK 
0680 cpr ott 
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CHANGE STACK POINTER 

SO SUFFICIENT SPACE WILL BE 
AVAILABLE FOR DISK USEAGE 
NEW STACK AREA 

SAVE OLD STACK POINTER 

AND ALL REGS 


SAVE OUTPUT DEVICE CODE 
INTERNAL LOOP FOR COMMON RET 
BIT 7 MEANS CONT INTERNAL LOOP 
RESTORE REGISTERS 


GET OLD STACK POINTER 
RESTORE STACK POINTER 


A-REG CONTAINS CHAR FOR CLNG PROG 


ROUTINE TO GET A CHAR(S) FROM READ SPOOL OR KEYBOARD 
OR COMMAND STACK AND CHECK FOR CONTROL CHARACTERS TO 
START READ/WRITE/PRINT SPOOLS OR INTELLIGINT TERMINAL 


SET UP REGS FOR COMMAND STACK 


SEE IF COMMAND STACK 

IS ACTIVE 

BRIP ACTIVE 

POINT TO 1/0 CONTROL 

D,E TO READ SPOOL NAME 
CHECK READ SPOOL FLAG 

BIT 7 IS ERROR, BIT 3 IS READ 
SKIP SPOOL IF ERROR BIT SET 
BRIF IF SPOOL IS 'ON' 

CHECK IF INPUT DEVICE 
NUMBER SHOULD BE USED 
IGNORE DEV NUM IF SET 
CHECK SPOOL ERROR BIT 


SKIP SPOOL IF ERROR BIT SET 
CHECK INPUT DEVICE @ 
DEVICE 8 FOR READ SPOOL 


GET CHAR 
CHECK IF 
INIT D,E 
INIT H,L 
LOOK FOR 


FROM KBD, CHECK FOR ESC 
PRINT SPOOL IS ACTIVE 
IF STACK COMMAND 

IF STACK COMMAND 

START OF STACK 


169A 
169D 
169E 
169F 
16A1 
16A3 
16A4 
16A6 
16A7 
16A9 
16AC 
16AF 
1681 
1684 
1636 
16B9 
16BB 
16BE 
16C1 
16C3 
16C6 
16¢8 
16CB 
16CD 
16D0 
16D2 
16D5 
16D7 
16DA 
16DB 
16DCc 
16DE 
16DF 
16DF 
16DF 
16DF 
16DF 
16E1 
16E2 
16E3 
16E6 
1667 
16EA 
16EB 
16EC 
16ED 
16EE 
16F1 
16F4 
16F7 
16F8 
16F9 
16FB 
16FE 
16FF 
1701 
1704 
1705 
1706 
1709 
170¢ 
170F 
1710 
1713 
1716 
1716 
1716 
1716 
1716 
1717 
1719 
171A 
171D 
1720 
1721 
1723 
1724 
1725 
1727 
172A 
1728 
1728 
1728 
1728 
172B 
172B 
172B 
1728 
1728 
172¢ 
172D 
172F 
1732 
1734 
1737 
1739 
173¢ 
173F 
1741 
1744 
1744 
1744 
1744 
1744 
1747 
174A 
174D 
1750 
1751 
1753 
1754 
1756 
1759 
1758 
175E 
1760 
1763 
1764 
1765 
1766 
1767 
1768 
1768 
176E 
1770 
1773 
1775 
1778 
1779 
177A 
1778 
177E 
1780 
1783 
1786 
1786 
1786 


04 
B7 


17 


17 
ic 


18 
18 


18 
1c 


18 
1B 
1B 
16 
1B 


00 


1c 
a9 


ic 
17 


17 


00 
19 


0685 
0690 
0695 
0700 
0705 
0710 
0715 
0720 
0725 
0730 
0735 
0740 
0745 
0750 
0755 
0760 
0765 
0770 
0775 
0780 
0785 
0790 
0795 
0800 
0805 
0810 
0815 
0820 
0825 
0830 
0835 
0840 
0845 
0850 
0855 
0865 
0870 
0875 
0880 
0885 
0890 
0895 
0900 
0905 
0910 
0915 
0920 
0925 
0935 
0940 
0950 
0955 
0960 
0965 
0970 
0975 
0980 
0985 
0990 
0995 
1000 
1005 
1006 
1010 
1015 
1020 
1025 
1030 
1035 
1040 
1045 
1050 
1055 
1060 
1065 
1070 
1075 
1080 
1085 
1090 
1095 
1100 
1105 
1110 
1115 
1120 
1125 
1130 
1135 
1140 
1145 
1150 
1155 
1160 
1165 
1170 
1175 
1180 
1185 
1190 
1195 
1200 
1205 
1210 
1215 
1220 
1225 
1230 
1235 
1240 
1245 
1250 
1255 
1260 
1265 
1270 
1275 
1280 
1285 
1290 
1295 
1300 
1305 
1310 
1315 
1320 
1325 
1330 
1335 
1340 
1345 
1350 
1355 
1357 
1360 
1365 
1370 


Jz 
ORA 
RP 
ANI 
CPI 
RZ 
cpr 
RZ 
CPI 
Jz 
LXxI 
cpl 
jz 
cPL 
Jz 
CPI 
Jz 
LxI 
cpr 
Jz 
cpr 
Jc 
cPI 
JP 
sur 
Jz 
ANI 
IPE 
ORA 
MOV 
ORI 
RET 


SKIP: 


LDSTK 
A LOOK FOR ESCAPE SEQUENCE 
RETURN TO CALLING PROG IF NONE 
TPH STRIP OFF FLAG 
“ LOOK FOR CHAR '|' 
SEND TO CALLING PROG 
esc LOOK FOR ESC CHAR 
CTRLS LOOK FOR EXECUTE STACK 
GOSTK EXECUTE THE STACK 
D,SPLFILE PREPARE TO CHANGE FILE NAMES 
"Rt READ FILE NAME 
RDNAME 
‘or PRINT (OUTPUT) FILE NAME 
PRNAME 
‘we WRITE FILE NAME 
WRNAME 
H, IOFLAG 
CTRLC LOOK FOR CLOSE WRITE SPOOL 
CLSPOOL 
tor LOOK FOR IOFLAG CONTROL 
ESCERR 
‘AY 
ESCERR 
tor CONVERT CHAR TO BINARY 
SKIP INIT IOFLAG, CLEAR ERROR BIT 
1FH ONLY BITS 0-4 IMPLEMENTED 
ESCERR ONLY ONE BIT AT A TIME 
™ PRESERVE OTHER BIT 
M,A 
80H RESTORE FLAG 


*THIS ROUTINE RECEIVES A CHAR (B-REG) AND 
*DEVICE CODE (A-REG) AND OUTPUTS CHAR 
. 


SPLCOUT: CPI 
RZ 
PUSH 
LxI 
DAD 
LxI 
PUSH 
PUSH 
PUSH 
MOV 
LxI 
STA 
CALL 
POP 
MOV 
ANI 
INZ 
MOV 
ANI 
JINZ 
INX 
MOV 
CALL 
IMP 
CALL 
MOV 
CALL 
JMP 


DOPRT: 
DOCRT: 


CHECK 


Osensee 


UTSPL: MOV 
ANI 
RM 

LXI 
JNZ 
MOV 
ANI 
RNZ 
MOV 
cPI 
Jz 

RET 
* 


*THESE ROUTINES HANDLE THE COMMAND STACK. 


H 
H,O 

SP 

SP, IOSTK 
H 

D 

8B 


C,A 
H, IOFLAG 


IF WRITE SPOOL 
WRITE CHARACTER TO DISK SPOOL 


ALM 
84H 


D,WRFILE 
PUTSPL 
A,M 

10H 

A,C 

4 

PUTSPL 


DON'T ECHO READ SPOOL 
CHARACTERS 

CHANGE STACK POINTER 

SO SUFFICIENT SPACE WILL BE 
AVAILABLE FOR DISK USEAGE 
NEW STACK AREA 

SAVE OLD STACK POINTER 

SAVE ALL REGS 


SAVE OUTPUT DEVICE # 


SAVE SELECTED OUTPUT DEVICE 
CHECK IF OUTPUT SPOOL 
IS ACTIVE; RESTORE CHAR 


LOOK FOR CRT ONLY FLAG 
IGNORE DEVICE NUMBER IF SET 


LOOK FOR PRINTER FLAG 


POINT TO IODEV 
RESTORE DEVICE CODE 


IS ACTIVE OR IF DEVICE 4 IS REQ 


CHECK WRITE SPOOL FLAG 

BIT 7 IS ERROR, BIT 2 IS WRITE 
SKIP WRITE SPOOL IF ERROR 

SET UP POINTER 
BRIF WRITE SPOOL IS 
CHECK DEVICE NUMBER 
IGNORE BIT 


‘ont 


ELSE CHECK DEVICE # 
BRIF DEVICE 4; WRITE SPOOL 


THE ROUTINES 


*USE 2 BYTES OF STORAGE IN THE DOS-I/O0 PROGRAM TO 
*SAVE A POINTER TO THE COMMAND ST! 7K. 


* ENTRY TO EXECUTE STACK MODE 
* H,L POINTS TO CHARACTER ON STACK 


GOSTK: MOV 
INX 
cpr 
Jz 

cPI 
INZ 
MVI 
IMP 
LxI 
ANI 
IMP 


KILL: 
SAVPTR: 


A.M 
H 

cR 
KILL 
‘ye 
SAVPTR 
A,CR 
SAVPTR 
H,O 
7FH 
UPDATE 


* 
* ENTRY: TO LOAD STACK 
* H,L POINTS TO START OF STACK 


. 


LDSTK: CALL 
CALL 
CALL 
CALL 
mov 
cPr 
RZ 
CPI 
dz 
cel 
Jz 
cpr 
Jc 
INX 
PUSH 
MOV 
INR 
POP 
INZ 
CALL 
MVI 
CALL 
MVI 
CALL 
LDAX 
CMP 
pcx 
JNZ 
ORI 
LxI 
IMP 


LOAD: 


DELETE: 


KILLSTK: 


* 


UPDATE 
DISPLAY 
GETCHR 
DISPLAY 
M,A 

cR 


CTRLC 
KILLSTK 
BS 
DELETE 
cn) 


LOAD 


H,0 
UPDATE 


POINT TO NEXT CHAR 

LOOK FOR END OF STACK 
BRIF CR, KILL STACK MODE 
LOOK FOR END OF LINE 
BRIF NOT EOL, RET CHAR 
RETURN A CR FOR EOL 

AND SAVE POINTER 

KILL STACK MODE 

CLEAR ESCAPE FLAG 

H,L -> (D,E) AND RETURN 


SAVE INITIAL VALUE OF POINTER 
ECHO CHAR 

GET CHAR AND FLAG ESC 

ECHO CHAR 

SAVE CHARACTER 
LOOK FOR CR 
RETURN IF CR, 
CHECK FOR KILL 
DELETE STACK AND RETURN “C 
CHECK CHAR DELETE 


END OF STACK 


LOOK FOR CONTROL CHARS 
NOT ALLOWED ON STACK 
BUMP POINTER TO STACK 


CHECK FOR END OF STACK FLAG 


CONTINUE IF NOT END 
INDICATE END OF STACK 


ECHO BS 
DELETE LAST CHAR 


GET INITIAL VALUE OF POINTER 
SEE IF CURRENTLY AT FIRST POS 
ADJUST STACK POINTER 

CONTINUE IF CHARS REMAIN 

ELSE SET FLAG AND RETURN 
KILL STACK MODE AND RETURN 


*THESE ROUTINES ARE USED BY THE CIN AND COUT I/0 PROGS 


*TO READ AND WRITE THE DISK SPOOL. 


ROUTINES USE 


39 


57 BYTES 


cD 
3E 
ce 
7E 
P6 
77 
AF 
3E 
cg 


oc 


44 
43 
2D 
7° 
39 
3D 
oD 
ag 
7° 


48 
0D 


80 


op 


OA 


$2 


D3 
50 


07 


57 


00 


18 
18 
19 
19 
1c 
18 


17 


19 


18 
00 


19 
18 


1B 


1375 
1380 
1385 
1390 
1395 
1400 
1405 
1410 
1415 
1420 
1425 
1430 
1440 
1445 
1450 
1455 
1460 
1465 
1470 
1475 
1480 
1485 
1490 
1495 
1500 
1505 
1510 
1515 
1520 
1525 
1530 
1535 
1540 
1545 
1550 
1555 
1560 
1565 
1570 
1575 
1580 
1585 
1590 
1595 
1600 
1605 
1610 
1615 
1620 
1625 
1630 
1635 
1640 
1645 
1650 
1655 
1660 
1665 
1670 
1675 
1680 
1685 
1690 
1695 
1700 
1705 
1710 
1715 
1720 
1725 
1730 
1735 
1740 
1741 
1742 
1745 
1750 
1755 
1760 
1765 
1770 
1775 
1780 
1785 
1790 
1795 
1800 
1805 
1810 
1815 
1820 
1825 
1830 
1835 
1840 
1845 
1850 
1855 
1860 
1865 
1870 
1875 
1880 
1885 
1890 
1895 
1900 
1905 
1910 
1915 
1920 
1925 
1930 
1935 
1940 
1945 
1950 
1955 
1960 
1965 
1970 
1975 
1980 
1985 
1990 
1995 
2000 
2005 
2010 
2015 
2020 
2021 
2025 
2030 
2035 
2040 
2045 


*OF STORAGE FOR THE FOLLOWING ITEMS: 


* 1) XXFILE (12) - 
* 2) XXUNIT (1) - 
* 

* 3) XXPTR (1) 

* 4) XXBUF 

* 5) XXADR (2) 

* 6) XXLEN 


a) - 


(2) = 
*WHERE XX IF WR IF 


CONTAINS THE NAME OF THE SPOOL FILE 
CONTAINS THE NUMBER OF THE DRIVE FOR 


THE ABOVE SPOOL FILE 


*PR IF PRINT SPOOL. 
*THE SPOOL DRIVERS ENTER THESE ROUTINES WITH ALL 
*NECESSARY INFORMATION IN 8080 REGISTERS, 

* 


POINTER TO RAM BUFFER (LOW BYTE) 
POINTER TO RAM BUFFER (HIGH BYTE) 
DISK ADDRESS FOR NEXT READ/WRITE 
DISK FILE LENGTH 

WRITE SPOOL, 


RD IP READ SPOOL, AND 


* DRIVER ROUTINE FOR SPOOL READ 
* H,L -> IOFLAG; D,E -> RDFILE 
* 


GETSPL: PUSH 
LXxI 
DAD 
XCHG 
LDAX 
ORA 
cz 
Jc 
CALL 
CALL 
Jz 
gc 
POP 
cer 
Jz 
ANI 
RET 


LOADHL 
RDDISK 
STOPR 
LNERR 
H 

CR 
CKEYBD 
TPH 


SAVE ADDR OF IOFLAG 
D,E+12->H,L 


H,L -> RDFILE; D,E -> RDUNIT 
CHECK IF READ SPOOL IS OPEN 


OPEN READ SPOOL IF NECESSARY 
BRIF OPEN FAILS 

H,L -> RAM BUFFER 

READ ONE CHAR FROM SPOOL 
STOP SPOOL IF END-OF-FILE 
LENGTH ERROR 

H,L -> IOFLAG 

LOOK FOR END-OF-LINE 

BRIF CR 

TURN OFF BIT 7 


CHECK KEYBOARD AT END-OF-LINE WHEN READ SPOOL 
HALT READ SPOOL IF ANY CHARACTER IS 


*. 

* 

* IS ACTIVE. 
* TYPED. 

* 

c CALL 
MVI 
RZ 
Mov 
ORI 
Mov 
XRA 
MVI 
RET 


* 
* 
* 
* 


* 
PUTSPL: MVI 
CMP 
RZ 
MVI 
CMP 
Jz 
PUSH 
ULxI 
DAD 
MOV 
XCHG 
ORA 
cz 
PUSH 
LxI 
MVI 
cc 
POP 
JNC 
Jz 
cpr 
Jz 
IMP 
CALL 
CALL 
JNC 
Jz 
IMP 
POP 
RET 


OK1: 


MOV 
ANI 
Jz 
CALL 
oP 
ANI 
MOV 
JMP 
PUSH 
LxI 


PRACT: 


PRLOOP: 


* 

* SEARCH 
*H,L -> 
* D,E -> 
* RETURN WITH 
* 
s 


PLSRCH: 


GETSTAT 
A,CR 


A,M 
80H 
M,A 
A 


A,CR 


B 
CLSPOOL 
H 

H,12 

D 


AM 


A 
SPLSRCH 
8 
B,O 
A,7 
CREATE 
B 
OoK1 
FLERR 
1 
NMERR 
WRERR 
LOADHL 
WRDISK 
OK2 
LNERR 
WRERR 
# 


AM 

2 
GETCHAR 
PRACT 
GETCHAR 
1DH 
M,A 
GETCHAR 
H 


H,12 
D 
A.M 


A 
SPLSRCH 
RDERR 
LOADHL 
A,L 
-38 
STRT™ 
-8 

D 

C,A 
B,cCc 
SELECT 
RDDISK 
STOPR 
LNERR 
B,A 
PUTCR 
A,CR 

B 


B,LF 
PUTCR 
GETSTAT 
PRLOOP 
a 


‘cr 


SEARCH 
NPERR 


7 


PSW 
TYERR 


RESTORE CR 

RETURN IF NO CHAR TYPED 
GET 1/0 CONTROL 

SET ERROR BIT 


RESET FLAGS 
RESTORE CR 


DRIVER ROUTINE FOR SPOOL WRITE 
H,L -> IOFLAG; D,E -> WRFILE 
B-REG CONTAINS CHAR TO OUTPUT 


SKIP LF CHARS 


LOOK FOR END-OF-FILE 

CLOSE WRITE SPOOL WHEN SOK 
(ASCII 1) IS OUTPUT 

SAVE ADDR OF IOFLAG 
D,E+12->H,L 

H,L -> WRUNIT 

SEE IF WRITE SPOOL IS OPEN 
H,L -> WRFILE; D,E -> WRUNIT 


LOOK FOR SPOOL FILE IF NOT OPEN 
SAVE B,C 

FLAG FOR CREATE ROUTINE 

SET FILE TYPE 

CREATE FILE IF NOT FOUND 
RESTORE B,C 

BRIF NO ERROR 

DISK FULL 


FILE NAME ERROR 

DISK WRITE PROTECT ERROR 
H,L -> RAM BUFFER 

WRITE CHAR TO SPOOL 

BRIF NO ERROR 

LENGTH ERROR 

WRITE PROTECT 

CLEAR ADDR OF IOFLAG 


ROUTINE FOR PRINT SPOOL 
IOFLAG; D,E -> PRFILE 


SEE IF PRINT SPOOL IS ACTIVE 

BIT 1 IS FLAG 

BRIF NOT ACT, GET CHAR FROM KBD 
PRINT SPOOL IS ACTIVE 

BRIF NO ERROR, GET CHAR FROM KBD 
ERROR OR END OF PRINT SPOOL 

KILL BIT 1 & ERROR BIT, SAVE REST 
GO TO KEYBOARD 

SAVE ADDR OF IOFLAG 

D,E+12->H,L 

H,L -> PRUNIT 

SEE IF PRINT FILE IS OPEN 

H,L -> PRPILE; D,E -> PRUNIT 


LOOK FOR SPOOL FILE IF NOT OPEN 
BRIF IF NOT FOUND 

H,L -> RAM BUFFER 

LOOK FOR END OF BUFFER 

START DRIVE MOTORS 

WHEN 38 CHARS LEFT 

SELECT DRIVE, LOAD HEAD 

WHEN 8 CHARS LEFT 


READ ONE CHAR FROM SPOOL 
BRIF END-OF-FILE 
LENGTH ERROR IF 'C' SET 
OUTPUT CHAR TO PRINTER 
LOOK FOR CR 

ADD A LINE FEED 


CHECK KEYBOARD STATUS 

BRIF NO CHAR READY 

ELSE CLEAR IOFLAG FROM STACK 
AND RETURN 


DIRECTORY FOR SPOOL FILE 

XXFILE (FILE NAME) 

XXUNIT (DISK UNIT #) 

SET IF FILENAME NOT FOUND 


BAD FILENAME 


CHECK FOR PROPER FILE TYPE 
RETURN, NO ERROR 

CLEAR RETURN ADDRESS 
SIGNAL TYPE ERROR 


1852 
1852 
1852 
1852 
1852 
1853 
1854 
1856 
1857 
185A 
185B 
185¢ 
185F 
1862 
1865 
1868 
1869 
186B 
186C 
186C 
186C 
186C 
186C 
186C 
186C 
186F 
1871 
1874 
1877 
1878 
187B 
187E 
1880 
1881 
1882 
1883 
1886 
1887 
188A 
188B 
188C 
188D 
188E 
188F 
1890 
1893 
1896 
1897 
1898 
1899 
189C 
189D 
189F 
18A2 
18A4 
18A7 
18AA 
18AD 
18B0 
1883 
18B6 
18B8 
18B9 
18BC 
18BD 
18c0 
18¢1 
18¢3 
18C4 
18¢5 
18c8 
18CB 
18CE 
18D0 
18D3 
18D6 
18D9 
18DB 
18pc 


18E7 
18E8 


18F4 
18F5 


1900 
1901 


1912 
1913 
1914 
1915 


1925 
1926 
1926 
1926 
1926 
1926 
1926 
1927 
1928 
1929 
192A 
192B 
192¢ 
192D 
192D 
192D 
192D 
192E 
192F 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1936 
1936 
1936 
1936 
1936 
1939 
193C¢ 
193E 
193F 
1942 
1945 
1947 
1948 
1948 


3A 
cD 
FE 
co 
3A 
cD 
F6 
cg 


87 
2E 


ol 
2E 


55 
08 
1B 


55 
08 
80 


00 


1A 
1B 
18 
ic 


18 


18 
18 


18 
18 


18 
ic 


19 
ic 


19 


20 
20 


1c 
16 


ic 
16 


50 


53 


46 


54 


20 


4 


2050 
2055 
2060 
2065 
2070 
2075 
2080 
2085 
2090 
2095 
2100 
2105 
2110 
2115 
2120 
2125 
2130 
2135 
2140 
2145 
2150 
2155 
2160 
2165 
2170 
2175 
2180 
2185 
2190 
2195 
2200 
2205 
2210 
2215 
2220 
2221 
2222 
2225 
2230 
2235 
2240 
2245 
2250 
2255 
2260 
2265 
2270 
2275 
2280 
2285 
2290 
2295 
2300 
2305 
2310 
2315 
2320 
2325 
2330 
2335 
2340 
2345 
2350 
2355 
2360 
2365 
2370 
2375 
2380 
2385 
2390 
2395 
2400 
2405 
2410 
2415 
2420 
2425 
2430 
4PF 4F 
2435 
2440 
50 4F 
2445 
2450 
49 4c 
2455 
2460 
20 4B 


2465 
2470 
2475 
2480 
45 57 


2485 
2490 
2495 
2500 
2505 
2510 
2515 
2520 
2525 
2530 
2535 
2540 
2545 
2550 
2555 
2560 
2565 
2570 
2575 
2580 
2585 
2590 
2595 
2600 
2605 
2610 
2615 
2620 
2625 
2630 
2635 
2640 
2645 
2650 
2655 
2660 
2665 
2670 
2675 
2680 


* 
* CLOSE WRITE SPOOL 
* H,L -> LOPLAG; D,E -> WRFILE 
* 
CLSPOOL: PUSH H SAVE ADDR OF IOFLAG 
MOV AM 
ANI 8BH KILL BIT 2, SAVE ERROR FLAG 
MOV M,A UPDATE IOFLAG 
LXI H,12 D,E+12->H,L 
DAD D 
XCHG H,L -> WRFILE; D,E -> WRUNIT 
CALL CLSIT CLOSE SPOOL IF OPEN 
JC CLSERR 
LXI H,CLOSED PRINT 'CLOSED' MESSAGE 
CALL PMSG 
PoP oH RESTORE STACK 
ORI 80H SET 'M' FLAG 
RET 
* 
* CHANGE NAME OF READ SPOOL FILE - ESC 'R' 
* CHANGE NAME OF WRITE SPOOL FILE- ESC ‘Ww! 
* CHANGE NAME OF PRINT FILE - ESC ‘0! 
* D,E -> SPLFILE 
* 
RDNAME: LXI  H,READN 
MVI A,19 OFFSET FOR RDFILE 
JMP — GNAME 
WRNAME: LXI H,WRITEN 
XRA A OFFSET FOR WRFILE 
IMP GNAME 
PRNAME: LXI  H,PRINTN 
MVI A,38 OFFSET FOR PRFILE 
GNAME: PUSH D D,E -> SPLFILE 
ADD E ADD OFFSET TO XXFILE 
MOV E,A D,E -> XXPILE 
JNC $41 
INR D BUMP D-REG IF NECESSARY 
CALL PMSG PRINT SPOOL TYPE MESSAGE 
POP a H,L -> SPLFILE 
pcx 4H SAVE POINTER TO XXFILE 
MOV M,D FOR LOAD ROUTINE 
pcx 4H 
MOV M,E 
PUSH H 
LXI -H, CURR 
CALL PMSG 
MOV H,D PRINT CURRENT SPOOL FILE NAME 
MOV L,E 
NAME: MOV A,M 
CALL DISPLAY 
INX H 
cPI CR STOP ON CR 
Rid OKNAME BRIF PROPER TERM 
cPL . 
INC NAME BRIF IF VALID CHAR 
LXI H,BADNM SET MSG FOR BAD FILE NAME 
CALL PMSG PRINT IT 
OKNAME: LXI  H,NEW 
CALL PMSG PRINT NEW PROMPT 
CALL GETCHR GET FIRST CHAR 
CPI CR TO SEE IF NAME SHOULD BE CHANGED 
POP H 
JZ RETM BRIF NO CHANGE DESIRED 
PUSH H 
LXIH,12 D,E+12->H,L 
DAD D H,L => XXUNIT 
MVI M,0 INDICATE FILE IS "CLOSED' 
XCHG H,L -> XXFILE 
POP D D,E -> SPLFILE-2 
CALL LOAD+3 USE LOAD STACK ROUTINE TO 
LXI H,BADNM ENTER NEW NAME 
cm PMSG 
CPI CTRLC 
cz PMSG 
RET: LXIH, CRLF 
CALL PMSG NEW LINE 
ORI 80H SET 'M’ FLAG 
RET 
READN: ASC ‘READ SPOOL ' 
4c 20 
DB t) 
WRITEN: ASC ‘WRITE SPOOL ' 
4F 4c 20 
DB O 
PRINTN: ASC 'PRINT FILE * 
45 20 
pB f) 
CURR: ASC ‘CURRENT NAME IS: ' 
41 4D 45 20 
DB ° 
NEW: DBC 
DB LF 
ASC ‘ENTER NEW NAME: * 
20 46 41 4D 
DB 0 
* 
* MISCELLANEOUS SUBROUTINES 


* SIMULATE A SHLD AT ADDRESS IN D,E 


* 
UPDATE: 


SAVE LOW BYTE 
SAVE HIGH BYTE 


* SIMULATE A LHLD FROM ADDRESS IN D,E+1 


* 
LOADHL: 


* GET A CHAR FROM KBD, 
* AND FLAG BIT 7 TO INDICATE "ESCAPE SEQUENCE" 


* 
GETCHR: 


10DEV 
USRCIN 
Esc 


IODEV 
USRCIN 
80H 


IF ESCAPE THEN GET ANOTHER CHAR 


GET A CHAR FROM 
SELECTED DEVICE 

LOOK FOR “SPOOL CONTROL" 
GET ANOTHER CHARACTER 


SET CONTROL FLAG 


*GET STATUS OF SELECTED INPUT DEVICE 


S-100 MICROSYSTEMS 


1948 
1948 
1948 
1948 
1948 
1948 
194A 
194c 
194D 
194D 
194D 
194D 
194F 
194F 
194F 
194F 
1950 
1951 
1953 
1956 
1957 
1958 
1958 
1958 
1958 
195A 
195D 
195D 
195D 
195D 
195D 
195D 
195D 
195D 
195D 
195D 
195D 
195D 
195D 
195E 
195F 
1961 
1962 
1965 
1966 
1967 
1968 
1969 
196A 
1968 
196C 
196D 
196E 
196F 
1970 
1972 
1973 
1974 
1975 
1977 
1979 
197¢ 
197D 
197E 
197F 
197F 
197F 
197F 
197F 
197F 
197F 
197F 
197F 
197F 
1980 
1981 
1984 
1985 
1986 
1987 
1988 
198A 
198B 
198D 
198E 
198F 
1990 
1993 
1994 
1995 
1996 
1998 
1999 
199¢ 
199D 
199E 
199F 
19A2 
19A3 
19A5 
19A6 
19A7 
19A8 
19A8 
19A8 
19A8 
19A8 
19A8 
19A8 
19A8 
19A8 
19A8 
19A8 
19A8 
19A8 
19A9 
19AA 
19AB 
19AC 
19AD 
19AE 
19AF 
19B2 
1983 
1984 
1985 
1988 
1989 
19BA 
19BD 
19BE 
19BF 
19C0 
19¢1 
19¢2 
19¢3 
19¢4 


DB 
£6 
co 


38 


cs 
47 
3e 
cD 
cl 
co 


3E 
c3 


00 
00 


07 


00 
0S 16 


ol 
oS 16 


80 
22 18 


03 


AB 19 


96 19 


03 
ol 


AB 19 


22 18 


26 19 


8319 


2D 19 


e319 


2685 
2690 
2695 
2700 
2705 
2710 
2715 
2720 
2725 
2730 
2735 
2740 
2745 
2750 
2755 
2760 
2765 
2770 
2775 
2780 
2785 
2790 
2795 
2800 
2805 
2810 
2815 
2820 
2825 
2830 
2835 
2840 
2845 
2850 
2855 
2860 
2065 
2870 
2875 
2880 
2885 
2890 
2895 
2900 
2905 
2910 
2915 
2920 
2925 
2930 
2935 
2940 
2945 
2950 
2955 
2960 
2965 
2970 
2975 
2980 
2985 
2990 
2995 
3000 
3005 
3010 
3015 
3020 
3025 
3030 
3035 
3040 
3045 
3050 
3055 
3060 
3065 
3070 
3075 
3080 
3085 
3090 
3095 
3100 
3105 
3110 
3115 
3120 
3125 
3130 
3135 
3140 
3145 
3150 
3155 
3160 
3165 
3170 
3175 
3180 
3185 
3190 
3195 
3200 
3205 
3210 
3215 
3220 
3225 
3230 
3235 
3240 
3245 
3250 
3255 
3260 
3265 
3270 
3275 
3280 
3285 
3290 
3295 
3300 
3305 
3310 
3315 
3320 
3325 
3330 
3335 
3340 
3345 
3350 
3355 
3360 
3365 


*THIS ROUTINE MUST BE MODIFIED TO PARTICULER 
*I/O0 CONFIGURATION, RETURN WITH Z-FLAG SET IF 
*NO CHARACTER IS READY ON KEYBOARD 
*** NOTE: THE O'S ARE CHANGED BY THE DOSPOOL ROUTINE 
* 
GETSTAT: IN 0 "ADDRESS" OF KEYBOARD STATUS PORT 
ANI 0 KEYBOARD READY BIT 
RET 
* 
*RING BELL ON TERMINAL 
* 
DSPBELL: MVI A,BELL 
* 
*OUTPUT CHARACTER (A-REG) TO CRT (DEVICE 0) 
* 
DISPLAY: PUSH B 
MOV B,A GET CHARACTER IN B-REG 
MVI A,O SELECT DEVICE 0 
CALL USRCOUT 
POP B RESTORE B 
RET 
* 
OUTPUT CHARACTER (B-REG) TO PRINTER (DEVICE 1) 
PUTCR: MVI A,1 
IMP USRCOUT 
* 
*THESE ROUTINES DO DISK I/O FOR THE DISK AND SPOOL 
*DRIVERS. ALL POINTERS ARE PASSED IN THE REGISTERS AS 
INDICATED AT THE BEGINNING OF EACH ROUTINE. 
* ENTRY TO WRITE CHAR IN B-REG TO DISK. 
* H,L -> RAM BUFFER 
* D,E -> WRUNIT 
* RETURN WITH 'C' SET IF ERROR 
* IF ERROR: 'Z' SET FOR LENGTH ERROR, 
* RESET FOR DISK WRITE PROTECT 
* 
WRDISK: MOV M,B SAVE CHAR IN BUFFER 
XCHG 
MVI A,80H CHECK IF HALF-WAY THROUGH 
CMP OE BUFFER 
CZ  CKMOTOR BRIF HALP-WAY 
INX H POINT TO WRBUF 
XRA A CLEAR ALL FLAGS 
INR E UPDATE POINTER 
MOV M,E LOW BYTE 
DCX H RESTORE H,L AND 
XCHG D,E TO VALUE AT ENTRY 
RNZ RETURN IF BUFFER IS NOT FULL 
PUSH H ELSE WRITE BUFFER TO DISK 
PUSH D SAVE REGS 
XCHG 
MOV A.M GET DISK DRIVE # 
ANI 3 REMOVE POSSIBLE ‘M' FLAG 
MOV C,A SET UP REGISTERS 
INX # SKIP WRBUF ADDRESS 
INX H,L -> WRBUP 
MVI B,O SET DISK WRITE COMMAND 
MVI A,1 SET LENGTH TO 1 BLOCK 
CALL DODSK WRITE BLOCK TO DISK 
POP D D,E -> WRUNIT 
POP iH H,L -> RAM BUFFER 
RET ‘C' FLAG SET IF ERROR 
* 
* ENTRY TO READ A CHAR FROM DISK FILE. 
* SAME ENTRY FOR BOTH DISK AND SPOOL DRIVERS. 
* H,L -> RAM BUFFER 
* D,E -> RDUNIT 
* 
* RETURN CHARACTER IN A-REG. 
* 'Z* FLAG SET IF EOF (1); 'C' FLAG SET IF LENGTH ERROR. 
* 
RDDISK: XRA A TEST LOW BYTE OF BUFFER 
ORAL ADDRESS FOR ZERO 
JNZ  GETIT | ZERO MEANS ANOTHER BLOCK 
PUSH H SHOULD BE READ FROM THE 
PUSH D DISK SPOOL 
XCHG H,L -> RDUNIT 
MOV A.M GET DISK DRIVE # 
ANI 3 REMOVE POSSIBLE 'M' FLAG 
MOV C,A SET UP REGISTERS 
MVI B,1 SET READ COMMAND 
MOV A,B SET LENGTH TO 1 BLOCK 
INX H POINT TO DISK ADDRESS 
INX H 
CALL DODSK GET ANOTHER BLOCK 
POP D D,E -> RDUNIT 
POP H H,L -> RAM BUFFER 
RC ‘C' SET FOR LENGTH ERROR 
GETIT: MVI A,80H CHECK IF HALF-WAY 
CMP OL THROUGH BUFFER 
CZ CKMOTOR + BRIF HALF-WAY 
MOV A.M GET CHAR FROM BUFFER 
INR L SET NEXT BUFFER ADDRESS 
INX D POINT TO RDPTR 
CALL UPDATE SAVE NEW BUFFER ADDRESS 
Dex D POINT TO RDUNIT 
cer 1 LOOK FOR END-OF-SPOOL 
RNC "Z* PLAG SET IF EOF 
cmc RESET 'C' FLAG IF NULL CHAR 
RET READ FROM DISK 


DISK COMMAND 


SUBROUTINE TO READ OR WRITE 


ONE BLOCK OF 


THE DISK FILE 


H,L -> XXBUF 


D,E -> START OF RAM BUFFER 


B CONTAINS DISK COMMAND CODE 


A CONTAINS # OF BLOCKS TO READ/WRITE 


RETURN 


IF ERROR: 


WITH 


'C' SET IF ERROR 


"Z*' SET FOR LENGTH ERROR, 


RESET FOR DISK WRITE PROTECT 


* 
* 
* 
* 
* 
* 
* © CONTAINS DISK UNIT NUMBER 
* 
* 
* 
* 
* 
D 


ODSK: PUSH PSW SAVE LENGTH 

PUSH D SAVE BUFFER ADDR 
INX i POINT TO XXADR 
MOV E,M GET LOW BYTE OF DISK ADDR 
INR OM UPDATE DISK ADDR FOR NEXT 
INX 4 DISK COMMAND 
MOV D,M GET HIGH BYTE OF DISK ADDR 
JNZ $+1 
INR M UPDATE HIGH BYTE IF NEEDED 
PUSH D SAVE DISK ADDRESS 
XCHG D,E -> XXADR (HIGH BYTE) 
CALL LOADHL H,L <~- FILE BLOCKS REMAINING 
MOV A,H LOOK FOR ZERO BLOCKS REMAINING 
ORA L 
INZ OKLEN BRIF 1 OR MORE BLOCKS LEFT 
POP D CLEAR STACK 
PoP »D 
POP D 
XRA OA SET '2' FOR LENGTH ERROR 
sTc SET 'C' FLAG FOR ERROR 
RET 

OKLEN: pcx 4H 1 LESS BLOCK REMAINING 
INX D D,E -> XXLEN (LOW) 


S-100 MICROSYSTEMS 


19cs 
19¢c8 
19¢9 
19CA 
19CB 
19CE 
19CF 
19D1 
19D2 
19D3 
19D3 
19D3 
19D3 
19D3 
19D3 
19D3 
19D3 
19D3 
19D3 
19D5 
19D8 
19D9 
19DA 
19DB 
19DC 
19DE 
19DF 
19DF 
19DF 
19DF 
19DF 
19DF 
19DF 
19E0 
19E1 
1983 
19B4 
19E5 
19E7 
19E8 
19E9 
19EA 
19EB 
19EC 
19EF 
19F0 
19F1 
19F2 
19F3 
19F3 
19F3 
19F3 
19F3 
19F3 
19F3 
19F3 
19F3 
19F3 
19F3 
19F3 
19P4 
19F5 
19F6 
19F8 
19FB 
19FE 
19FF 
1A02 
1A03 
1A04 
1A05 
1A06 
1A07 
1A08 
1A0B 
1A0D 
1A0E 
1A0F 
1All 
1A12 
1A13 
1A16 
1A17 
1A1A 
1A1D 
1AIE 
1A21 
1A22 
1A25 
1A26 
1A29 
1A2A 
1A2B 
1A2c 
1A2D 
1A2E 
1A2F 
1A30 
1A31 
1A32 
1433 
1434 
1A35 
1A36 
1A37 
1A3A 
1A3B 
1A3C 
1A36 
1A3F 
1A41 
1A42 
1A44 
1A47 
1A49 
1a4c 
1A4E 
1A51 
1A54 
1AS5 
1AS6 
1A57 
1A58 
1A5B 
1A5E 
1ASF 
1A62 
1A65 
1A68 
1A69 
1A6C 
1A6D 
1A6E 
1A71 
1A72 
1A73 


cD 26 19 


el 
Dl 
Fl 
cD 
DO 
3E 
87 
co 


22 
81 


ol 
D7 


80 


1D 
SE 


01 


72 


72 
2c 


Al 
71 
71 


20 


1c 
1A 


1A 


1A 


1A 


1A 
1A 


FE 
1A 
1A 


PF 


1A 
1A 


1A 
1A 


1A 
20 


1A 
20 
20 


20 


19 


3370 
3375 
3380 
3385 
3390 
3395 
3400 
3405 
3410 
3415 
3420 
3425 
3430 
3435 
3436 
3440 
3445 
3450 
3455 
3460 
3465 
3470 
3475 
3476 
3480 
3485 
3490 
3495 
3500 
3505 
3510 
3515 
3520 
3525 
3530 
3535 
3540 
3545 
3550 
3555 
3560 
3565 
3570 
3575 
3580 
3585 
3590 
3595 
3600 
3605 
3610 
3615 
3620 
3625 
3630 
3635 
3636 
3637 
3640 
3645 
3650 
3655 
3660 
3665 
3670 
3675 
3680 
3685 
3690 
3695 
3700 
3705 
3710 
3715 
3720 
3725 
3730 
3735 
3740 
3745 
3750 
3755 
3760 
3765 
3770 
3775 
3780 
3785 
3790 
3795 
3800 
3805S 
3810 
3815 
3820 
3825 
3830 
3835 
3840 
3845 
3850 
3855 
3860 
3865 
3870 
3875 
3880 
3885 
3890 
3895 
3900 
3905 
3910 
3915 
3920 
3925 
3930 
3935 
3940 
3945 
3950 
3955 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3970 
3975 
3980 
3985 
3990 
3995 


CALL 
POP 
POP 
POP 
CALL 
RNC 
MVI 
ADD 
RET 


SEARCH 
H,L -> 
D,E -> 
RETURN 
RETURN 
RETURN 


WITH 
WITH 


Qeeeeenene 


EARCH: MVI 
CALL 
XCHG 
MOV 
RC 
RZ 
ORI 
MOV 


UPDATE 
4 

D 

PSW 
DCcOM 


A,81H 
A 


"cr 


A,l 
DIRLOOK 


MA 


80H 
MLA 


SAVE H,L -> (D,E) 

H,L -> DISK ADDRESS 

D,E -> START OF RAM BUFFER 
RETRIEVE LENGTH 

ISSUE DISK COMMAND 

RETURN IF NO ERROR 


A=2 FOR DISK WRITE PROTECT 
'C' IS SET 


DIRECTORY FOR FILENAME 

XXPILE (FILE NAME) 

XXUNIT (DISK UNIT #) 

SET IF FILENAME NOT FOUND 

‘'2' SET IF BAD FILENAME 

WITH H,L->XXUNIT; D,E->DIR ENTRY OR DISK ADDR 
SET XXUNIT TO DISK DRIVE #; 


"M' FLAG IF FILE EXISTS 


DEFAULT TO DISK DRIVE #1 


D,E -> DIR ENTRY OR DISK ADDR 
H,L -> XXUNIT; SAVE UNIT # 
RETURN IF FILE NAME NOT FOUND 
RETURN IF BAD FILENAME 

SET 'M' FLAG IF FILE NAME FOUND 
DON'T CHANGE DIR LENGTH ON CLOSE 


MOVE DISK ADDR AND FILE LENGTH FROM DIRECTORY ENTRY 
TO FILE TABLE ENTRY. 
H,L -> XXUNIT; D,E -> DIRECTORY ENTRY 


* 
* 
* 
* 
* RETURN WITH FILE TYPE IN A-REG, 
* 
s 


POINT TO LOW BYTE OF RAS 
START ON 100H BOUNDARY 
POINT TO DISK ADDRESS 


BUFFER 


GET DISK ADDRESS AND FILE LENGTH 
FROM DIRECTORY AND MOVE 
TO XXADR AND XXLEN 


GET FILE TYPE FROM DIRECTORY 
BE SURE 'C' FLAG IS CLEAR 
D,E -> XXUNIT 


CREATE A DIRECTORY ENTRY FOR DISK FILE 


D,E CONTAINS DISK ADDRESS FOR NEW FILE 


IF 0 ALLOC ALL AVAIL SPACE 


SET IF ERROR 
IF ERROR: A=O (‘'Z' SET) IF DISK FULL 
A=1 ('Z' RESET) IF BAD FILE NAME 
A=2 ('Z' RESET) IF DISK WRITE PROTECT 


SAVE FILE TABLE ADDRESS 

SAVE FILE TYPE 

GET DISK DRIVE # 

REMOVE POSSIBLE 'M* FLAG 

POINT TO BLANK "NAME" 

LOCATE BLANK DIRECTORY ENTRY 
SAVE POINTER TO DIRECTORY ENTRY 
ERROR IF DIRECTORY IS FULL 
MOVE DISK ADDRESS TO DIRECTORY 


POINT TO LENGTH ENTRY 
SEE IF LENGTH IS ZERO 


SET LENGTH TO CONTENTS OF B,C 
COMPUTE FILE LENGTH AS 
350-DISK ADDR (E.G. USE ALL 
AVAILABLE DISK SPACE FOR SPOOL) 


D,E CONTAINS SPOOL FILE LENGTH 
ERROR IF DISK IS FULL 
OR IF NEW FILE HAS 0 LENGTH 


SAVE POINTER TO LENGTH ENTRY 


ADD LENGTH 

LENGTH >350 BLOCKS 
ADD DISK ADDRESS 
FILE TOO LONG 


USE LENGTH IN B,C 


MOVE LENGTH TO DIRECTORY 


POINT TO TYPE 

D,E -> DIRECTORY ENTRY (BYTE 8) 
GET FILE TYPE 

SET FILE TYPE 

H,L -> DIRECTORY ENTRY 

D,E -> XXUNIT 


MOVE SPOOL FILE NAME FROM XXFILE 
TO DIRECTORY ENTRY AT H,L 

D,E -> START OF DIRECTORY ENTRY 
SET B,C TO OFFSET OF XXFILE (-12) 
H,L -> XXPFILE 

COUNT FOR FILE NAME LENGTH 

MOVE NAME 
STOP ON ',' DELIMETER 


STOP ON CR 


STOP ON BLANK 


KILL IF BAD CHAR 


NEXT CHAR 


CHECK COUNT 
GET “C TV 


SET UP TV FOR DISK 
WRITE PROTECT 

WRITE DIRECTORY TO DISK 
RESTORE ORIGINAL TV 


D,E£ -> DIRECTORY ENTRY 

H,L -> XXUNIT 

MOVE DIR TO XXADR AND XXLEN 
RESTORE STACK 

RESTORE STACK 


RCONT: PUSH H 
INX H 
MVI M,0 
INX H 
INX H 
MVI C,4 
MOVDIR: LDAX D 
MOV M,A 
INX D 
INX H 
DCR Cc 
JNZ  MOVDIR 
LDAX D 
ORA A 
POP D 
RET 
od 
* 
* A-REG CONTAINS FILE TYPE 
* HYL -> XXUNIT 
*. 
* B,C CONTAINS FILE LENGTH, 
* RETURN WITH 'C* 
. 
* 
* 
* 
CREATE: PUSH H 
PUSH PSW 
MOV A.M 
ANI 3 
LXI 1H, BLANK 
CALL DIRLOOK 
PUSH H 
gc DSKFULL 
MOV M,E 
INX 
MOV M,D 
INX H 
MOV A,B 
ORA C 
JNZ USEBC 
MMVI A,94 
SUB OE 
MOV E,A 
MVI A,1 
SBB- OD 
MOV D,A 
se DSKFULL 
ORA E 
JZ DSKFULL 
IMP = MOVLN 
USEBC: PUSH H 
LXI H,-351 
DAD 
ac DSKFL 
DAD 
ac DSKFL 
POP oH 
MOV B,C 
MOV D,B 
MOVLN: MOV M,E 
INX H 
MoV M,D 
INX H 
POP D 
POP PSW 
MOV M,A 
XCHG 
POP D 
PUSH D 
PUSH H 
LxXI B,-8 
DAD B 
XCHG 
MVI C,-12 
DAD B 
MVI C,B 
MOVNM: MOV A.M 
crpr 8 
32 WRDIR 
cPI CR 
Rid WRDIR 
cer ¢*' 
32 ~~ -WRDIR 
Jc DSKNAME 
STAX D 
INX H 
INX D 
DcR C 
JNZ = _MOVNM 
WRDIR: LHLD DOSERR+1 
PUSH H 
LXI -H, DSKWP 
SHLD DOSERR+1 
CALL DWRIT 
POP H 
SHLD DOSERR+1 
Pop D 
POP H 
IMP = SRCONT 
DSKFL: POP H 
DSKFULL: POP 
XTHL 


THROW AWAY FILE TYPE 


41 


1A74 
1A75 
1A76 
1A77 
1A78 
1A79 
1A7B 
1A7¢ 
1A7D 
1A7E 
1A7F 
1A80 
1A81 
1A82 
1A85 
1487 
1A8A 
1A8A 
1A8A 
1A8A 
1A8A 
1A8A 
1A8A 
1A8A 
1A8A 
1A8A 
1A8C 
1A8D 
1A8F 
1A90 
1A91 
1A92 
1A93 
1A96 
1A98 
1A9A 
1A9B 
1A9C 
1A9D 
1A9P 
1AA2 
1AA3 
1AAG 
1AAS 
1AA6 
1AA8 
1AAB 
1AAE 
1ABO 
1AB1 
1AB2 
1AB3 
IAB4 
1ABS 
1AB6 
1AB7 
1AB8 
1AB9 
1ABA 
1ABB 
1ABC 
1ABD 
ABE 
1ABF 
1Aco 
1ac1 
1ac2 
1ACc3 
1Ac4 
1AC7 
1AC8 
1acg 
iAcc 
1ACD 
ACE 
ACF 
1AD0 
1AD1 
1AD2 
1AD5 
1AD6 
1AD7 
1AD7 
1AD7 
1AD7 
1AD7 
1AD7 
1AD7 
1AD7 
1AD7 
1AD7 
1AD7 
1AD8 
1AD9 
1ADA 
1ADD 
1AEO 
1AE3 
1AE6 
AES 
1AEA 
1AED 
1AFO 
1AF1 
1AF4 
1AFS 
1AF8 
1AFB 
1AFE 
1AFF 
1800 
1B01 
1804 
1B05 
1806 
1B07 
1808 
1809 
1B0C 
1B0D 
1B80E 
1B11 
1B12 
1B13 
1B14 
1B15 
1B16 
1B16 
1816 
1B16 
1B16 
1816 
1B19 
1818 
iBic 
1B1E 
182) 


42 


01 


2D 
02 
7B 


00 
03 


2D 
ol 
00 


01 
As 


03 
D7 
B2 
82 


ce 


cD 


06 


58 


B7 


90 
10 


59 
03 


20 
1A 


19 


19 


1A 
1A 


1A 


1A 


1B 


ic 


28 


20 


4000 XRA OA SET '2' FLAG 

4005 sTc INDICATE ERROR 

4010 POP 4H 

4015 POP oD H,L -> DIR ENTRY; D,E -> XXUNIT 
4020 RET 

4021 DSKNAME: MVI A,l SEND ERROR CODE 

4022 ORA A 

4023 STC 

4024 POP H 

4025 POP oD 

4026 RET 

4027 DSKwP: POP oH CLEAR RETURN ADDRESS 

4028 POP #4 GET ORIGINAL TV 

4029 SHLD DOSERR+1 RESTORE TV 

4030 MVI A,2 SEND ERROR CODE 

4031 JMP DS KNAME+2 

4034 * CLOSE A FILE ON THE DISK 

4035 * H,L -> WRFILE; D,E -> WRUNIT; B,C IS USED 

4040 * A-REG CONTAINS DISK DRIVE # 

4045 * 'M* FLAG SET IN WRUNIT MEANS DON'T CHANGE 

4050 * LENGTH ENTRY IN DIRECTORY 

4055 * RETURN WITH 'C' FLAG IFF ERROR 

4060 * IF ERROR: 'Z' SET FOR LENGTH ERROR, RESET FOR OTHER 
a8 * IF ERROR: A=2 FOR WRITE PROTECT, A=4 FOR BAD FILENAME 
070 * 

4075 CLSIT: MVI B,0 SET DISK WRITE COMMAND 
4080 LDAX D GET DISK DRIVE # 

4085 ANI 3 REMOVE POSSIBLE 'M' FLAG 
4090 RZ RETURN IF FILE NOT OPEN 
4095 MOV C,A 

4100 PUSH D SAVE REGS 

4105 PUSH H 

4110 CALL LOADHL H,L -> RAM BUFFER 

4115 MVI M,l WRITE END-OF-FILE MARK 
4120 MVI L,O H,L -> START OF BUFFER 
4125 XCHG 

4130 INX H 

4135 INX H H,L -> WRBUF 

4140 MVI A,l WRITE 1 BLOCK 

4145 CALL DODSK WRITE FINAL BLOCK TO DISK 
4150 POP 4H H,L -> WRFILE 

4155 POP D D,E -> WRUNIT 

4160 RC RETURN IF LENGTH ERROR 
4165 LDAX D GET DISK UNIT # 

4170 ANI 3 REMOVE POSSIBLE 'M' FLAG 
4175 CALL DIRLOOK FIND DIRECTORY ENTRY 

4180 JNc $+4 

4185 MVI A,82H BE SURE 'Z' IS RESET AND 'C* SET 
4190 ADD A=4 FOR BAD FILENAME 

4195 RET 

4200 LDAX D GET DISK UNIT # 

4205 ORA A 

4210 PUSH PSW SAVE 'M' FLAG 

4215 XRA OA 

4220 STAX D ZERO DISK UNIT NUMBER 
4225 INX D 

4230 INX D 

4235 INX D D,E -> WRADR (CURR DISK ADDR) 
4240 LDAX D 

4245 SUB mM H,L -> START DISK ADDR 
4250 MOV C,A COMPUTE LENGTH OF DISK FILE 
4255 INX D 

4260 INX H 

4265 LDAX D 

4270 SBB OM 

4275 MOV B,A B,C CONTAINS FILE LENGTH 
4280 INX H H,L -> DIR ENTRY FOR LENGTH 
4285 POP Psw GET SAVE SIZE FLAG 

4290 aM $+1 DON'T CHANGE LENGTH IN 
4295 Mov M,C DIRECTORY IF 'M' FLAG 
4300 INX H 

4305 JM $+1 

4310 MOV M,B UPDATE DISK FILE LENGTH 
4315 INX H SKIP TYPE BYTE 

4320 INX H H,L -> OTHER DIR INFO 
4325 MOV M,C ALWAYS SAVE ACTUAL LENGTH 
4330 INX H IN THIS FIELD IN DIRECTORY 
4335 MOV M,B 

4340 CALL DWRIT WRITE DIRECTORY TO DISK 
4345 XRA OA RESET ALL FLAGS 

4350 RET 

4355 * 

4360 * LOOK UP FILENAME IN DISK DIRECTORY 

4365 * H,L -> XXFILE; A-REG CONTAINS DRIVE # 

4370 * RETURN WITH 'C* RESET IF FILENAME FOUND 

4375 * H,L -> DIRECTORY ENTRY 

4380 * RETURN WITH 'C' SET IF FILENAME NOT FOUND 

4385 * H,L CONTAINS DISK ADDR 

4390 * ON RETURN A-REG CONTAINS DISK DRIVE # 

4391 * IF A=0 ('Z' SET) THEN FILENAME IS BAD 
4395 * 

4400 DIRLOOK: PUSH B SAVE REGS 

4405 PUSH D 

4406 PUSH #H 

4407 LHLD DOSERR+1 GET ERROR TV 

4408 SHLD SAVERR HOLD IT 

4409 LxI H,FILNM SET TV FOR BAD FILENAME 
4410 SHLD DOSERR+1 

4411 LxI H,O ALSO SAVE STACK POINTER 
4412 DAD SP 

4413 SHLD SAVSTK 

4415 LHLD DOSPTNR SAVE DOS POINTER FOR DOS INPUT 
4420 XTHL ROUTINE WHICH MAY BE ACTIVE 
4425 CALL DLOOK DOS DIRECTORY LOOK UP 
4430 XTHL 

4435 SHLD DOSPTNR RESTORE DOS POINTER 

4436 LHLD SAVERR RESTORE ERROR TV 

4437 SHLD DOSERR+1 

4440 POP #H 

4445 POP D 

4446 POP 8B 

4447 Jc $+2 

4448 ORA A BE SURE 'Z' IS RESET 
4449 RET 

4450 ORA A 

4451 sTc 

4452 RET 

4453 FILNM: LHLD SAVSTK RESTORE STACK POINTER 
4454 SPHL 

4455 POP 4H RESTORE DOS POINTER 

4456 SHLD DOSPTNR 

4457 POP OD ADJUST STACK 

4458 POP 8B 

4459 XRA OA SET ZERO 

4460 sTc ALSO FILENAME NOT FOUND 
4461 RET 

4462 * 

4465 * ROUTINES TO CONTROL DISK DRIVE MOTORS AND HEAD LOADING 
4470 * 

4475 * TURN ON MOTORS, IF OFF INDICATE NO DRIVE SELECTED 
4480 * 

4485 STRTM: LDA RESET TURN ON MOTORS, READ A STATUS 
4490 ANI MO LOOK AT MOTOR-ON BIT 

4495 RNZ DONE IF MOTORS WERE ON 
4500 MVI A,NOSEL SET FLAG FOR NO DRIVE 
4505 STA DRVSEL SELECTED 

4510 RET 


1B22 
1B22 
1B22 
1822 
1B22 
1B25 
1827 
1B28 
1B2B 
182C 
1B2C 
1B2C 
1B2C 
1B2Cc 
1B2F 
1830 
1B31 
1B32 
1B33 
1B36 
1837 
1837 
1837 
1837 
1B3A 
1B3D 
1B40 
1B43 
1844 
1847 
1B4A 
184D 
1B50 
1851 
1B54 
1857 
1B5A 
185D 
1B5E 
1B61 
1B64 
1B65 
1868 
1868 
1B6E 
1870 
1873 
1876 
1B79 
1B7C 
1B7F 
1B82 
1884 
1B85 
1B86 
1B86 
1B86 
1B86 
1887 
1888 


189C 
189D 


18A7 


18B1 
1BB2 
1BB3 
1BB4 


1BBD 
1BBE 


1BCB 
iscc 
18CD 
1BCE 


1BDB 
1BDC 


1B8ED 
1BEE 
1BEF 
1BFO 


1BFD 
1BFE 
18FF 
1c00 


1COF 
1clo 


1c18 


1C2B 
1c2c 
1c2p 
1C2E 
1C2E 
1C2E 
1C2E 
1C2E 
1C2F 
1¢30 
1¢31 
132 
1035 
1036 
1¢39 
1¢39 
1¢39 
1c3c 
1c3c 
1c3c 
1c3c 
1c3¢c 
1¢3¢ 
1C3F 
1042 
1¢c45 
1046 
1c49 
104A 
1c4B 
1c4D 
1C4E 
1c4F 
1¢50 
1cs50 
1¢50 


cD 
21 
cD 
El 
cD 
AP 
12 
36 
B6 
77 
cg 


10 
10 


90 


03 


03 


49 
20 
54 


45 
20 
4E 
20 


49 
20 


41 
46 


41 
46 


50 
4c 
53 


4c 
45 


50 
4c 
4c 


20 
20 
41 
45 
55 


4F 


2E 


EB 


20 


20 


19 
ic 


1B 


ic 
18 
ic 


19 


52 
43 


50 
4F 


55 


4c 


* 
* 
* 
* 

CKMOTOR: 


* SELECT DISK UNIT, 


LDA 
ANT 
RZ 

LDA 
RET 


CHECK IF DISK DRIVE MOTORS ARE ON 
RESET MOTOR TIMER IFF ON 


READA READ A STATUS BYTE 

MO LOOK AT MOTOR-ON BIT 
FORGET IT IF MOTORS OFF 

RESET 


LOAD HEAD 


* C <- DRIVE NUMBER; B <- CONTROLLER COMMAND 


* 
SELECT: 


DRVSEL 

c SEE IF DESIRED DRIVE IS 
ALREADY SELECTED, DONE IF SO 

B SELECT DRIVE 

A,C UPDATE CURRENT DRIVE 

DRVSEL SELECTED 


* ERROR ROUTINES FOR SPOOL PROBLEMS 
* 


WRERR: 
LNERR: 


RDERR: 


FLERR: 


NPERR: 
NMERR: 


TYERR: 


CLSERR 


ESCERR: 


* 


LxI 
IMP 
LxI 
IMP 
XCHG 
LXxI 
IMP 
LxI 
IMP 
POP 
LxXI 
IMP 
LxI 
IMP 
PUSH 
LxI 
CALL 
POP 
LXI 
Jz 
LxI 
CPI 
Jz 
LXxI 
IMP 
LxI 
CALL 
CALL 
MVI 
ORA 
RET 


H, BADPAR 
STOP 

H, TOLONG 
STOP STOP SPOOL ACTIVITY 


D,E POINTS TO RDUNIT 


H, RDNF PRINT MESSAGE FOR READ 
STOP SPOOL NOT FOUND 

K,FULL SET MSG FOR DISK FULL 
STOP 

H CLEAR RET ADDR (SEE SPLSRCH) 
H,BADNM SET MSG FOR BAD FILE NAME 
STOP 

H,BADTYP PRINT MESSAGE FOR 

STOP WRONG FILE TYPE ON SPOOL 
PswW SAVE ERROR CODE 

H,BADCLS ERROR ON CLOSE 

PMSG 

PsW GET ERROR CODE 

H,FULL DISK FILE FULL IF 

STOP 'Z' SET, ELSE 

H,NE FILENAME NOT FOUND IF 

4 ERROR CODE IS 4 

STOP 

H,BADPAR ELSE DISK IS WRITE PROTECTED 
STOP STOP SPOOL 

H, BADESC 

PMSG 

DSPBELL 

A, 80H SET ERROR BIT 

A AND FLAGS 


* ERROR MESSAGES FOR SPOOL PROBLEMS 
* 


BADPAR: 
45 2D 50 
44 

RDNF: 

ac 


NF: 
44 


FULL: 
BADTYP: 
54 59 50 
BADNM: 


4— 41 4D 


CLOSED: 
45 20 43 


CRLF: 
BADCLS: 
4F 52 20 
TOLONG: 
45 20 46 
BLANK: 


BADESC: 
45 20 53 


DB 
DB 
asc 
52 


DB 
ASC 


ASC 


DB 
DB 
DB 
ASC 


DB 
ASC 
45 
DB 
DB 
DB 
asc 
45 
DB 
ASC 
4c 


DB 
DB 
DB 
ASC 
2D 
DB 
DB 
DB 
ASC 
55 


DB 
asc 


ASC 
45 


DB 
DB 
DB 


CR 
LF 
"DISK WRITE-PROTECTED' 


0 
"READ SPOOL" 


‘ NOT FOUND’ 


CR 
Lr 


° 
"DISK FULL" 


0 
"BAD FILE TYPE’ 


0 

CR 

LF 

"BAD FILE NAME’ 


0 
"SPOOL FILE CLOSED" 


cR 

LF 

i) 

‘CLOSE ERROR -* 


0 

CR 

LF 

"SPOOL FILE FULL* 


‘BAD ESCAPE SEQUENCE’ 


CR 
LF 
0 


* PRINT MESSAGE, STOP ON '0' OR NEGATIVE BYTE 
* H,L -> MESSAGE 
* 


PMSG: 


MOV 
ORA 
RZ 
RM 
CALL 
INX 
IMP 


A,M GET CHAR 
A LOOK FOR END OF MESSAGE 


DISPLAY PRINT MESSAGE 
H 
PMSG 


* 
* CLOSE READ SPOOL WHEN '1' BYTE FOUND 


STOPR: 
* 


LxI 


H,CLOSED "CLOSED" MESSAGE 


PROCESS ERROR RETURN ON READ/WRITE 
CLOSE ALL SPOOL FILES FOR ERROR CONDITION 


TOP: 


CALL 
LXxI 
CALL 
POP 
CALL 
XRA 
STAX 
MVI 
ORA 
MOV 
RET 


* 
* 
* STACK -> IOFLAG; D,E -> XXUNIT 
* 
s 


PMSG PRINT MESSAGE 


KH, CRLF PRINT CR AND LF 

PMSG 

H H,L -> IOFLAG 

DSPBELL SIGNAL ERROR OR END 

A TURN OFF ACTIVE SPOOL 
D D,E -> XXUNIT 

A, 80H SET ERROR BIT IN IOFLAG 
M 

M,A 


RETURN TO DOS I/O ROUTINE 
WITH 'M' FLAG SET 


*STORAGE SPACE FOR I/O ROUTINES 
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PRINT MESSAGE FOR WRITE PROTECT 


PRINT MESSAGE FOR FILE OVERFLOW 


1¢50 5135. * 

1¢50 00 00 5140 RDSTK DW vy) POINTER TO COMMAND STACK 

1C52 95 1c 5145 STACK Dw LOCSTK ADDRESS OF STACK AREA 

1¢54 00 5150 IOFLAG DB ti) INPUT/OUTPUT DEVICE CONTROL FLAG 
1¢55 00 5155 IODEV DB 0 SELECTED I/O DEVICE 

1C56 00 00 5156 SAVERR DW 0 DOS ERROR TV AT DOSERR 

1cS58 00 00 5157 SAVSTK DW 0 HOLD STACK POINTER 

1C5A 5160 * 

1C5A 5165 *TABLES FOR DISK I/O SPOOL ROUTINES 

1CSA 5170 * 

1C5A 5175 DS 2 SPACE FOR POINTER IN NAME CHNG 
1cs¢ 5180 SPLFILE EQU $ START OF TABLE FOR SPOOL FILES 
1cs¢ 5185 *WRITE SPOOL 


1c5¢ 53 50 4F 5190 WRFILE ASC "SPOOL,2 * WRITE SPOOL FILE NAME 
4F 4C 2C 32 a nee 20 

1C66 OD DB 13 

1C67 FF S200 DB OFFH 


PROPER TERMINATION 
TERM NAME INPUT 


1c68 00 5205 DB 0 ACTIVE DRIVE # 

1C69 00 1D 5210 DW SPLBUF POINTER TO RAM BUFFER 

1C6B 00 00 5215 DW 0 CURRENT DISK ADDRESS 

1C6D 00 00 5220 Dw 0) WRITE SPOOL FILE LENGTH 

1C6F 5225 *READ SPOOL 

1C6F 53 50 5230 RDFILE ASC 'SPOOL,2 ‘ READ SPOOL FILE NAME 
4F 4c pi 32 20 20 20 

1¢79 oD 5235 DB 13 PROPER TERMINATION OF NAME 

1C7A FF 5240 DB Aare TERM NAME TNPUT 

1C7B 00 5245 RDUNIT DB ACTIVE DRIVE # (0 IF SPOOL. OFF 

1C7C 00 1E 5250 DW Sp.aurs100H POINTER TO RAM BUF 

1C7E 00 00 5255 DW CURRENT DISK ADDRESS 

1C80 00 00 5260 Dw READ SPOOL FILE LENGTH 

1¢82 5265 *PRINT SPOOL 

1C82 50 52 49 5270 PRPILE ASC 'PRINT,2 ‘ PRINT SPOOL FILE NAME 
4E 54 2C 32 20 20 20 

icsc oD 5275 DB 13 PROPER TERMINATION 

1C8D FF 5280 DB OFFH TERM NAME INPUT 

1C8E 00 5285 PRUNIT DB r) ACTIVE DRIVE # 

1C8F 00 1F 5290 DW SPLBUF+200H POINTER TO RAM BUFFER 

191 00 00 5295 DW 0 CURRENT DISK ADDRESS 

1€93 00 00 5300 DW 0 PRINT SPOOL FILE LENGTH 

1c95 5305 * 

1¢95 5310 * SPACE FOR COMMAND STACK 

1695 5315 * 

1c95 $320 LOCSTK EQU $ 

1c95 5325 ps 80 USE 80 BYTES FOR COMMAND STACK 

1CE5 FF 5330 DB OFFH COMMAND STACK 

1CE6 5335 * 

1CE6 5340 * SPACE FOR 8080 STACK WHEN IN I/O ROUTINES 

1CE6 5345 * 

1CE6 5350 IOSTK EQU $425 

~EOF- 

R; 


-t sl100spl] rer 


If you’re considering upgrading 
your current ll 00 =o to 16 bits: : 


Marinchip CPU Card with disk mesons system: 
$700. asm. ; $550. kit 


$1050. asm. 


Full line of RS- 232 and RS-449 cables, adapters, 
interconnects 
Interface Technology of Maryland 
P.O. Box 745 
College Park, MD 20740 
(301) 490-3608 
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PRESS ON 


Nothing in the world 
can take the place 
of persistence. 
Talent will not; 
Nothing is more common 
than unsuccessful men 
with talent. 
Genius will not; 
Unrewarded genius 
is almost a proverb. 
Education will not; 
The world is full 
of educated derelicts. 


Persistence and determination alone 


are omnipotent. 
—Unknown 


+ 


S-100 
4 Channel Serial Interface 


i ner We J 4 pa a 
Tae Dinan Mint 


Economical interface flexibility for the advanced 
amateur or small business computerist 


a Industry standard LS! UARTS 
# 8 reversible status and data ports 
# Optically isolated current loop operation 
a Independent channel operation- 
RS-232, 20mA or 60mA current loop 
ws On-board crystal time base 
w One year defect and workmanship warranty 


$249°° Plus $1.50 postage and handling in the U.S. 


THETALABS INC 


10911 Dennis Drive / Suite 405 / Dallas, Texas 75229 
(214) 241-1090 Dealer Inquiries Welcome 


A MONITOR PROGRAM IN PASCAL 


Jon Bondy 


When | first started using UCSD Pascal, | fre- 
quently found myself wanting access to the hardware 
from Pascal, so that | could read ports or write to 
memory. Whenever | needed to do these kinds of 
things, | found myself booting up CPM or using a ROM 
monitor. Each time that | added an I/O board to the 
system, | wanted to try it out from Pascal, but | couldn’t 
do it easily. It seemed to me that it wouldn’t be that hard 
to write a Pascal program to act as my “eyes” into the 
machine’s hardware, allowing me to watch peripherals, 
or even the Pascal operating system, from within a 
Pascal program. 

The first step in doing this was to write four 
assembly language routines which could be called 
from Pascal to allow me to read and write memory and 
ports. They proved to be somewhat more difficult to 
write than | had anticipated, since the UCSD Version 
1.5 documentation had a minor bug in it, but after some 
playing around, | wound up with the following routines. 


«FUNC MEMREAD:; 1 3PARAM IS ADDRESS 


POP Ix 3RETURN ADDRESS 
PoP IY 3POP TWO WORDS OF ZEROS 
PoP EY’ sPOP TWO WORDS OF ZEROS 
POP HL sREAD ADDRESS 
LD E, (HL) sREAD BYTE 
LD Do 
PUSH DE 
JP (IX) 
PROC MEMWRITE, 2 3PARAMS ARE ADDRESS, DATA 
POP Ix 3RETURN ADDRESS 
POP DE | 3 DATA 
POP HL sWRITE ADDRESS 
LD (HL)»E sWRITE BYTE 
JP (IX) 


. sPARAM IS PORT NUMBER 
POP Ix sRETURN ADDRESS 


POP IY sPOP TWO WORDS OF ZEROS 
POP IY sPOP TWO WORDS OF ZEROS 
POP BC sPORT NUMBER 

IN E.(C) sREAD PORT 

LD B.o 

PUSH DE 

JP (IX) 

«PROC PORTWRITE,2 sPARAMS ARE PORT, DATA 
POP Ix sRETURN ADDRESS 

POP DE 3DATA 

PoP BC +PORT NUMBER 

OUT (C),E #WRITE PORT 

JP (IX) 


The MEMREAD and PORTREAD functions have 
just one parameter, that begin the address (or port) to 
be read. They return the values read as the values of 
their functions. The MEMWRITE and PORTWRITE 
procedures require two parameters, the address (or 
port) to be written to, and the data to be sent to that 
address (or port). 


Jon Bondy, Box 148, Ardmore, PA 19003 
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The PROCEDUREs are quite simple. UCSD Pascal 
sets the stack up so that when an assembly routine is 
called, the top of the stack is the return address, just as 
with standard machine language subroutine calls. 
Since | have a Z80, | save that address in register IX for 
later use; if you have an 8080, you could save it in 
memory as demonstrated in the UCSD Pascal V1.5 
Manual. The two parameters are the next items on the 
stack. They are pushed onto the stack in the order in 
which they appear in the procedure call, so they are 
popped off in reverse order. | then perform the memory 
or I/O operation required by the procedure and return. 

The FUNCTIONS are slightly more complex, since 
a value must be returned to the UCSD Pascal calling 
routine. UCSD Pascal sets up the function return 
address at the top of the stack, just as with procedures, 
but underneath that it inserts two bytes of storage on 
the stack for the function value. This is for some sort of 
compatibility with the stack formats for standard (non- 
assembly language) UCSD Pascal functions. These 
words must be popped off of the stack in order to get at 
the parameter values. The documentation bug in 
Version 1.5 was that the manual stated that the 
function storage was pushed onto the stack BEFORE 
the parameters, while in fact it is exactly the reverse. 
Finally, when the memory or port read is complete, the 
resulting value must be pushed onto the stack before 
control is returned to the Pascal program. Although 
two words of memory are placed on the stack for the 
return value by the UCSD Pascal system, only one is 
sent back. This is because UCSD Pascal leaves 
enough room on the stack for a REAL variable to be 
returned (if required), but we are only sending back a 
single 16-bit word. 

Once the routines were developed, | placed them 
in the Pascal Library using the LIBRARIAN program so 
that they would be loaded into my CODE files auto- 
matically. If you decide to use my program on your 
UCSD system, you must enter the assembly language 
routines as listed above, assemble them, and incorpo- 
rate the resulting code files into your file SYSTEM. 
LIBRARY. You are then ready to deal with the Pascal 
program itself. 

With these tools in hand, | set out to write a simple 
but useful monitor program in Pascal. | wanted to be 
able to dump memory in either hex or character format, 
modify memory, and read and write ports. As | liked the 
prompt lines which UCSD uses in their operating 
system, | decided to use a similar format for my 
program. 
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\NAL” 
wpe OR'G Presents: 


@ Personal Personal Computing 


ernie and Small Business 
' so Computer Show 


ane vient Personal praia snow in hectic 


eee 21, 22,23, 24th at the Philadelphia ¢ Civic Center 


@ Major exhibits by the industries leading companies 

@ Thursday, Aug. 21st, Dealer Day 12 Noon to 6 P.M. 
@ Friday and Saturday, Aug. 22, 23rd ——— 9 A.M. to 6 P.M. 
@ Sunday, Aug. 24th —_———————————- 10 A.M. to 5 P.M. 
2) 
® 
® 


Free Seminars @ Robotics Contest @ Antique Computer Display 
Special Seminars and Tutorials about Computer Music, Saturday, Aug. 23rd 
3rd Annual Computer Music Festival, Saturday Evening, Aug. 23rd 


(Computer Music Festival is sponsored by the Philadelphia Area Computer Society-Tickets on sale at show) 


@ Computer Visual Arts Festival, Sunday, Aug. 24th 


er pais ei ii nal ei ict il e | 

| Advanced Registration | 

\ Saves Time & Money COMPANY NAME 

1 © Send____Dealer-Retailer (4 days) NAME | 

| Registrations at $10. each, $12. at door 

| for Thursday-Sunday, Aug. 21, 22, 23, STREET 
24 

\ QO Send Regular Registrations (3 CITY STATE ZIP. | 

j days) at $8. each, $10. at door for i 
Friday-Sunday, Aug. 22, 23, 24 only. PHONE 

i Advanced Registrations will be mailed late i 

| July - early August. No Advanced Registra- Send To: 

tions accepted after Aug. 8th. PERSO NAL COMPUTIN 80 
() Send Exhibitor information or Phone G 
| __sun-so-t188 Rt. 1, Box 242, Warf Rd., Mays Landing, NJ 08330 | 


Monitor Program, con?’d... 

UCSD Pascal offers a useful feature when one 
uses their character strings during input, since charac- 
ter and line editing may be performed any time up until 
you hit the carriage return to end the line. | decided to 
have most of my input as character strings in order to 
allow the user to correct mistakes easily. This meant 
that | needed a routine which accepted a character 
string as input, and interpreted the characters in the 
string as hex digits for me. That wasn’t difficult to do, 
but for the memory dumps, | wanted to input both the 
starting and ending addresses as parts of the same 
character string. Anaive hex conversion routine would 
cause problems, since it would be passed the same 
string twice and would return the starting address as 
the interpreted value both times. | modified my routine 
to change the characters which it processed into 
blanks, so that the second call to the routine would 
skip over the (now blank) first field. The routine in its 
final form is given below: 


function hexread(var chars : strins) : intesers 


€ convert the character strings “chars” into an inteser by 
interpretins 
the characters in the string as hex disits } 


var 


temp = inteser; 
done * boolean: 
i? integer; 


besin 


done := false; 
{ scan strings until a non-blank is found } 
repeat 
if (i <= lengsth(chars)) then 
if (charsCil] = “ “) then 
ist=i+t+il 
else done *= true { a non—blank character was found 3} 


else done ?:= true { scan has proceeded bevrond end of strins } 


until dones 
done t= false; 


{ add hex disits to the number beins senerated (“temp”) until a 


non-hex disit is encountered } 
repeat 
if (i <= lensth(chars)) then 


if (charsCil in £70°..°9’%,°A’..°F%,’a’%..°f°1) then begin 


if (charsflil < “A’) then € it is a mumeric disit >} 
temp == (temp # 16) + ord(charsCil) - ord(’0”) 
else besin 


if (charsCil] > “F’) then { convert lower case alpha 


to upper } 
charsCil #= chr(ord(charslil) - 32)3 
{ add all alpha’s into number beins senerated } 


temp t= (temp * 16) + ord(charsLil) -— ord(“A%) + 103 


ends { else } 


€ put blank in character processed so that if the same 


strings 
is processed asain,» 
the first field will be skipped over } 
charsCil t= “ “3 
i t= i + 15 
end < if } 
else done = 
else done := true € the scan has proceeded berond the 
end of strings 
until dones 
{ return number acsuired } 
hexread := temp 
end; { hexread } 


true { a non-hex character has been encountered } 


| wanted nicely formatted dumps, so | paid attention 
to the placement of the dumped data on the screen. If 
the user asked for a memory dump starting at address 
OCH, I wanted the first byte dumped to be placed under 
the header line as the twelfth position on the line, 
rather than the first. In this way, one could always use 
the header line to determine which value was which. 
For example, a dump from OCH to 12H would look like 
the following: 


00 O1 02 03 04 OS 06 07 08 OF OA OB OC OD OE OF 


0000 03 O02 EF F3 
0010 C3 00 34 
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To do this, | calculated the number of spaces 
required after the address field (‘OO00’ in the above 
example) in the variable ‘numspaces’, and printed 
them as WRITE (‘ ’:inumspaces). 

For the memory modification routine, | copied a 
method which I have seen in so many places that I have 
forgotten where | first saw it. The user enters an 
address, after which the computer displays the con- 
tents of that byte in hex. The user can enter a space, a 
carriage return, or a hex value. If a space is entered, 
the value of the next byte in memory is displayed, and 
the process continues. If a carriage return is entered, 
the routine terminates. If a hex value is entered, that 
value is used to replace the value which was just 
displayed, and the value of the next memory location is 
displayed. Notice that since | was dealing with input 
data acharacter at atime in this routine, | could not use 
the ‘hexread’ routine which was discussed above. The 
very flexibility which the strings offered me in the first 
place (character and line editing) made it impossible to 
use them when | wanted real time interactive user 
input. 

All in all, it took me about an hour to code the 
original version of the program. | quickly discovered 
that |needed a way to terminate the dumps if they were 
not of interest, and to freeze them if they were. | added 
a routine which read the keyboard, and used that to 
cause a screen freeze if a <control-s> was entered 
and dump termination if a <control-o> was entered. 
Note that | could not use standard Pascal I/O for this 
purpose, since a READ statement would have waited 
until the user entered a character rather than simply 
sampling the keyboard from time to time. The keyboard 
read routine is given below: 


function kbd = char; 


€ read the keyboard port, whether there is a new character 
there or not, and return that character to the caller } 

var 
i: inteser; 

besin 

i ?= portread(1); 

{ if msb is set, clear it } 

if (i < 128) then kbd := chr(i) 

else kbd t= chr(i - 128) 

ends {€ kbd >} 


The final program is given below. | have transported 
it to a number of other UCSD systems with little 
difficulty, so | expect that you could enter it and use it 
without a problem. 


Prosram monitor$ 


const 
eeos = 
€e0] = 233 
home = 213 
cntls = 195 
cntlo = 153 


var 
Port, addr, addri, addr2, data : inteser;s 
chars : strins; 
ch ? chars 
soodchars = set of char; 


Procedure memwrite(addr, data : inteser); external; 
function memread(addr ! inteser) : intesers external; 
procedure portuwrite(rPort, data : inteser); external} 
function portread(rort = inteser) * inteser: external; 


function kbd = chars 
{ read the keyboard port, whether there is a 
new character there or not, 
and return that character to the caller >} 
var 
i * inteser;s 
besin 
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Have You Been 
Bitten By The 
Computer Bug? 


Be A Computer 
Literate 


A first introduction to the computer 
world for children age 10 to 14. Full color 
diagrams, drawings, photos and large 
type make this book easy to read and 
understand. Written by Marion J. Ball 
and Sylvia Charp. This informative 62- 
page book is used in many school 
systems. Softbound [6H] $3.95. 


Problems for Computer 
Solution 


Problems for Computer Solution by 
Stephen J. Rogowski is an excellent 
source of exercises in research and 
problem solving for students and self- 
learners. Problems like the Faulty Speed- 
ometer Spotter make learning fun and 
easy. 104 pages, softbound, [9Z] $4.95. 


Creative Computing : as 


Magazine - 
. 0 The Best of 
Creative Computing has long been ‘ . 
Number 1 in applications and software for Creative Computing 
micros, minis, and time-sharing systems 
for homes, schools and small busi- 
nesses. Loads of applications every 
issue: text editing, graphics, communi- 
cations, artificial intelligence, simula- 
tions, data base and file systems, music 
synthesis, analog contro}. Complete pro- 
grams with sample runs. Programming 
techniques: sort algorithms, file struc- 
tures, shuffling, etc. Coverage of elec- 
tronic and video games and other related 
consumer electronics products, too. 

Just getting started? Then turn to our 
technology tutorials, learning activities, 
short programs, and problem solving 
pages. No-nonsense book reviews, too. 
Even some fiction and foolishness. 

Subscriptions: 1 year $15, 3 years $40. 
Foreign, add $9/year surface postage, 
$26/year air. 


The first two years of Creative Com- 
puting magazine have been edited into 
two big blockbuster books. American 
Vocational Journal said of Volume 1, 
“This book is the ‘Whole Earth Catalog’ of 
computers.” [6A] Volume 2 continues in 
the same tradition. “Non-technical in 
approach, its pages are filled with infor- 
mation, articles, games and activities. 
Fun layout.” —American Libraries. [6B] 
Each volume $8.95. 


Basic Computer Games 


Edited by David Ahl, this book con- 
tains 101 imaginative and challenging 
games for one, two, or more players — 
Basketball, Craps, Gomoko, Blackjack, 
Even Wins, Super Star Trek, Bombs 
Away, Horserace. Simulate lunar land- 
ings. Play the stock market. Write poetry. 
Draw pictures. 

All programs are complete with listing 
in Microsoft Basic, sample run and 
description. Basic conversion table in- 
cluded. 125,000 copies in print. 192 pages 
softbound. [6C] $7.50. 


Computer Coin Games 


Computer Coin Games by Joe Weis- 
becker aids newcomers to the field of 
computers by simplifying the concepts of 
computer circuitry through games which 
can be played with a few pennies and full 
sized playing boards in the book. 
Enhanced by outrageous cartoons, 
teachers, students and self-learners of all 
ages will enjoy this 96 page softbound 
book. [10R]$3.95. 


How To Order 


Send order and payment to Creative 
Computing, P.O. Box 789-M, Morris- 
town, NJ 07960. Add $1.00 shipping and 
handling per order (foreign, $2.50) N.J. 
residents add 5% sales tax. Visa, 
MasterCharge and American Express 
orders welcome. For faster service, call 
in your bank card order toll free to: 
800-631-8112.(In NJ, call (201) 540-0445.) 


More Basic 
Computer Games 


Contains 84 fascinating and enter- 
taining games for solo and group play — 
evade a man-eating rabbit, crack a safe, 
tame a wild horse, become a millionaire, 
race your Ferrari, joust with a knight, trek 
across the desert on your camel, navigate 
in deep space. 

All games come complete with pro- 
gram listing in Microsoft Basic, sample 
run and description. 192 pages soft- 
bound. [6C2] $7.50. 
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s 9 var 
Monitor Program, cont co addr, temp = intesers 
i t= portread(1)$ besin ; 
{ if msb is set, clear it } { write header line } _ 
if (i < 128) then kbd t= chr(i) writeln(¢ 
else kbd := chr(i -— 128) ms 0123456789ABCDEF 01 234546789ABCDEF 0123456 7389ABCDEF 0123454 789ABCDEF * )! 
ends { kbd } € write startins address } 
hexwrite(addrl div 256)35 
function hexread(var chars = strins) = integer: hexwrite(addri mod 256)3 
{ convert the character strins “chars’ into an inteser by interrretins { position cursor correctly for initial write } 
the characters in the strings as hex digits } write(chr(eeol),” “i((addril mod 64)+1))3 
var addr := addri3 
temp : integer; repeat 
done : boolean?’ temp != memread(addr); 
i! inteser; { only write printable characters to the screen } 
besin if (chr(temp) in goodchars) then write(chr(temp) ) 
temp := 03; else write(“.%)$ 
i t= 13 addr = addr + 13 
done := false; € only write 64 characters on a line } 
{ scan strings until a non-blank is found } if ((addr mod 64) = 0) then besin 
repeat writelns 
if (i <= lensth(chars)) then hexwrite(addr div 256)3 
if (charsflil = “ “) then hexwrite(addr mod 256); 
istsei-+i write(’ “) 
else done := true { a non-blank character was found } end; 
else done := true { scan has proceeded beyond end of strins } { pause if the user types in a <control-s>$3 continue if another 
until done; character is entered } 
done t= false; while (kbd = chr(cntls)) do besin end 
{ add hex digits to the number beins generated (’temp”) until a { continue printings until the address limit is reached, or the user 
non-hex disit is encountered } enters a <control-o> } 
repeat until (addr = addr2) or (kbd = chr(ecntlo))$ 
if (i <= lensth(chars)) then € write final character } 
if (charsli] in (70%..°9%:°A%..°F%1%a%..“f°I) then besin temp == memread(addr)3; 
if (charslil] < “A”) then { it is a numeric disit } if (chr(temp) in goodchars) then write(chr(temp) ) 
temp t= (temp * 16) + ord(charsLlil]) - ord(“0~*) else write(“.7)5 
else begin writelns 
if (charsCil] > “F’) then { convert lower case alpha to uprer } end; € asciidump >} 
charsfil #= chr(ord(charslil) — 32)5 procedure dispmem(addri,addr2 : inteser); 
{ add all alrpha’s into number beins senerated } { dump memory in hex to screen, from “addri’ to “addr2’ } 
temp == (temp * 16) + ord(charsLil) - ord(“A“) + 105 var 
endi € else 2 addr = intesers 
€ put blank in character processed so that if the same string begin 
is processed asain, the first field will be skipped over } { write header } 
enereksa Ee 9 writeln(’ 00 01 02 03 04 05 06 07 08 OF OA OB OC OD OE OF”) 
ee { write initial address } 
end { if } hexwrite(addri div 256)3$ 
else done *= true { a nmon-hex character has been encountered } hexwrite(addri1 mod 256)3 
else done *= true { the scan has proceeded beyond the end of strings } { position cursor for initial write } 
until dones write(chr(eeol),*% “2(((addri mod 16) * 3)+1))3 


€ return number acauired } addr &= addri; 
hexread := temp repeat 


end; { hexread } hexwrite(memread(addr))s 


A write(’ “)5 
Procedure hexwrite(data = integer); addr t= addr + 13 


{ write the integer “data” to the CONSOLE: in hex } { only write 16 bytes per line } 


var if ((addr mod 16) = 0) then besin 
templ, temp2 = integer; writeln; 
besin 


hexwrite(addr div 256)3 

hexwrite(addr mod 256)35 

write(* “) 

ends 

Pause if the user types in a <control-s>3 continue if another 
character is entered } 

while (kbd = chr(cntls)) do besin end 


templ *= (data div 16) mod 16; 

temp2 := data mod 16; 

if (templ > 9) then write(chr(ord(“A’) + templ - 10)) 
else write(chr(ord(’0O’) + templ1)); ra 
if (temp2 > 9) then write(chr(ord(“A~» + temp2 - 10)) 
else write(chr(ord(’0’) + temp2)) 

ends; { hexwrite } 


procedure asciidump(addri,addr2 : integer); € continue printings until the address limit is reached, or the user 
{ dume memory starting at “addri’ and stopping at “addr2’ to enters a <control-o> 3 
the CONSOLE: as ASCII } until (addr = addr2) or (kbd = chri(cntlo))$ 


{ write final byte to screen } 
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hexwrite(memread(addr))3; 
writelns 
ends {€ dispmem } 


Procedure substitute(addr : integer); 


{ display and replace byte values in memory starting at address “addr’ 
var 
temp = integer; 
ch ® chars 
besin 
€ write the address } ms 
hexwrite(addr div 256); 
hexwrite(addr mod 256); 
write (’ “)3 
if eoln then readin; 
€ repeat until the user enters a <CR> } 
while not eoln do besin 
€ write value in memory } 
hexwrite(memread(addr)); 
write (“-7)$ 
temp == O03 
read(ch); 
{ if user enters “ “, then proceed to next memory address. otherwise, 


accert a new hex value to replace that which was displayed } 
if (ch <> “ “) then begin { accumulate hex value in “temp” } 
- while (ch in £70%..°9%,°A’..°F%,%a%.. “f°]) do begin 
if (ch < “A’) then 
temp == (temp # 16) + ord(ch) 
else besin 
if (ch > “F’) then 
ch $= chr(ord(ch) 
temp *= (temp # 14) 
ends { else } 
read(ch) 
ends < while } 
{ write hex value into memory to replace value displayed } 
memwrite(addr, temp) 
end’ €{ ch OD % 7% 3} 
addr t= addr + 13 
{ only process 8 bytes per line } 
if ((addr mod 8) = O) then begin 
writelns 
hexwrite(addr div 256); 
hexwrite(addr mod 256); 
write (’ %)3 
if eoln then readin 
end 
end € while } 
ends { substitute } 


— ord(’0O”) 


— 32)3 


+ ord(ch) — ord(“A’%) + 103 


3 


besin { main } 
soodchars := [% “,.” 
“13 

repeat 
€ display Prompt line } 
write(chr(home), 

“Monitor =! D)mp,A)scii,S)ub,R)port,W) port, Q)uit’)3 

{ accert command input } 
repeat 

read(kevboard,ch) 

until (ch in €%d’%,%a%,’s%s%r%s“w’%, “a, 

7D?» “A%s°S%2°R%> “Ws “Q°I)3 
writeln(chr(eeos))$ 
{ dispatch control to correct routine } 
case ch of 

“d’,“D” = begin 
write(“Dump (start, 
readIin(chars)3 
{ repeated calls to “hexread’ cause subsequent hex fields to be 

interpreted and returned as the value of the function } 
dispmem(hexread(chars),hexread(chars)) 
end; 

“a’,“A’ = besin 
write(“Ascii (start, 
readiIn(chars)3 
asciidump(hexread(chars),hexread(chars) ) 
end; 

“s’,°S’ 3 besin 
write(“’Substitute (addr) : ~%)3 
readin(chars)3 
substitute (hexread(chars)) 
end; 

“r’,“R’ = begin 
write(“Read port (port) : 
readiIn(chars)3 
hexwrite(rportread(hexread(chars))) 
end; 

“w’,“W% = besin 
write(“Write port (port, 
readiIn(chars); 
pPortwrite(hexread(chars),hexread(chars) ) 


stop) = “)3 


stop) = “)3$ 


“os 


data) =: “)3 


end 
end { case } 
until (ch = “9%) or (ch = ’Q”) 


end. 


€ file is “monitor.text’ } 


S-100 PROCESSOR BOARDS & 
MANUFACTURERS 


Compiled by 


Sol Libes 


The following listing does not pretend to be 
complete. In fact, | would welcome reader 
additions and corrections to the listing. | prepared 
the listing in response to many letters that | have 
received regarding the large variety of CPU boards 
that | had previously mentioned as being available 
to S-100 based systems. | had mentioned that 
there "were 11 different microprocessor CPU type 
boards for the S-100”. When! compiled the listing | 
discovered 13 different microprocessors were 
implemented on S-100 CPU boards, from 31 
different manufacturers. The list follows. 

lf anyone would like to undertake to present 
listings of other types of S-100 CPU boards (e.g. 
memory, I/O, disk controller, video, etc.) please 
contact me. 


MICRO- 


PROCESSOR CPU SUPPLIER 


2650 Victoria Micro Digital,401 Dundee St, 
Victoria, TX 77901 

6502 CGRS Microtech, POB 102, Lang- 
horn, PA 19047 

6802 Mic DaSys, 357 South Lorranie Blvd, 
Los Angeles, CA 90020 

6809 Ackerman Digital, Suite 208, 110 York 
Rd, Elmhurst, IL 60126 

8080 Electronic Control Technology, 763 
Ramsey Ave, Hillside, NJ 07205 


IMSAI Computer Div., FischerFreitas 
Corp., 2175 Adams Ave, San Leandro, 
CA 94501 

SSM Microcomputer Products, 2190 
Paragon Drive, San Jose, CA 95131 

Wamenco, Inc., POB 877, El Granada, 
CA 94018 


8085 Godbout Electronics, Bldg 725, 
Oakland Airport, CA 94614 


Dynabyte, 115 Independence Dr., 
Menlo Park, CA 94025 


Artec Electronics Inc., 605 Old 
County Rd, San Carlos, CA 94070 


8088 Godbout Electronics, Bldg 725, 
Oakland Airport, CA 94614 
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Lomas Data Products, 11 Cross 
Street, Westborough, MA 01581 


8086 Seattle Computer Products, 1114 
Industry Dr., Seattle, WA 
TecMar Inc, 23414 Greenlawn, 
Cleveland, OH 44122 


9900 Marinchip Systems, 16 Saint Jude Rd, 
Mill Valley, CA 94941 
Z-80 California Computer Systems,250 


Caribbean, Sunnyvale, CA 94086 


CMC Marketing, 10611 Harwin, Suite 
406, Houston, TX 77036 
Cromemco Inc, 280 Bernardo Ave, 
Mountain View, CA 94940 
Delta Products, 15392 Assembly 
Lane, Unit A, Huntington Beach, CA 
92649 
Digital Research Computers, POB 
401565, Garland, TX 75040 
Ithaca InterSystems, POB 91, Ithaca, 
NY 15850 
North Star Computers, Inc.,1440 
Fourth St, Berkely, CA 94710 
QT Computer Systems Inc., 15335 
South Hawthorne Blvd, Lawndale, CA 
90260 
Quasar Data Products, 25151 
Mitchell Dr, No. Olmstead, OH 44070 
SD Systems, POB 28810B, Dallas, TX 
75228 
SSM Microcomputer Products, 2190 
Paragon Drive, San Jose, CA 95131 
Tarbell Electronics, 950 Dovien PI, 
Suite B, Carson, CA 90746 
ZS-Systems/Zobex Inc., POB 1847, 
San Diego, CA 92112 

Z-8000 Ithaca Intersystems, POB 91, Ithaca, 
NY 15850 


Quasar Data Products, 25151 
Mitchell Dr., No. Olmsted, OH 44070 


LSI-11 Alpha-Micro, 17881 Sky Park North, 
Irvine, CA 92714 


PASCAL Digicomp Research Corp., Terrace 
Microengine Hill, Ithaca, NY 14850 
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| Software 
Consultants 


as. Harken! . ; 


Do you do software customizing? Do 
you do software package installation? Do 
you provide turnkey systems? Do you run 
a programming shop? Full-time? Part- 
time? 

Starting with a future issue MICRO- 
SYSTEMS will publish a directory of 
“software shops.” Places where com- 
puter customers can go for software 
package customizing. Most purchases of 
computer software packages find that the 
package does not exactly meet their 
needs—customizing is required—some- 
times this is minor and sometimes it is 
major. Our directory will provide low cost 
advertising for “software shops.” If you 
wish to be listed write to MICRO- 
SYSTEMS, Box 1192, Mountainside, NJ 


07902 for information. 
FULL COLOR 


CAT-100 crapincs 


The original 256-color imaging system with 
high resolution video FRAME GRABBER 
for the S-100 bus. ; 


Capture and digitize a video framein 1/60 ofa 
second. Select the best resolution for your 
application, from 256 to 1280 pixels ys” 
per TV line. Display your digitized 
or computer processed image _ 
with 256 gray levels or 256 os 
colors on standard 

B&W, NTSC or RGB 


7 Features: 
@ Highest possible quality 480x512x8 digital video 
image presently available on the market 


© Input capability from TV camera or other sources 


© Choice of 1, 2, 4, 8, 16 or 32 bits per pixel 
© 32K-byte image memory on the basic system 
© 32, 64, 128 & 256K byte system capacity 


processors 
@ Comprehensive line of accessories, monitors and 


support software 


SEND FOR FREE CATALOG 


DIGITAL GRAPHIC SYSTEMS 


= 441 California Ave.,Palo Alto, CA 94306 415/494-6088 


>} FREE 
CATALOGS 


C] Software. Lists 400 pro- 
grams on 70 tapes and 
disks. For education, recre- 
ation, and personal use. 


O\Books. Lists 100 books, 
games, records, prints, etc. 
for educational and _ per- 
sonal users of small compu- 
ters. 


0 Peripherals. (ALF music 
synthesizer and Versa- 
Writer for the Apple Il)- 


Send 3 15¢ stamps for 
either catalog or 5 for both. 
Or send $2.00 for a sample 
issue of Creative Computing 
and both catalogs. 


creative 
corpatirg 


P.O. Box 789-M 


Morristown, NJ 07960 
CATCH THE 


BUS! OUR 


LIST SPECIAL 
PRICE CASH 
_ PRICE _ 
North Star Horizon I] — 64K 
Double density A&T 3830.00 2999.00 


Intertec’s ‘‘Super Brain’’ W/32K, 
2 drives, CP/M etc. 2995.00 2495.00 


Godbout Econoram XIIl — 24K 
Static RAM ‘‘Unkit’’ 479.00 399.00 


S.D. Systems VDB 80X24 kit 370.00 *309.00 
S.D. Systems SBC-100 Single 
board computer kit 295.00 *252.00 


“Included free with every S.D. Systems board is an additional $25.00 
manufacturer's rebate coupon. 


Subject to Available Quantities e Prices Quoted Include Cash Discounts. 
Shipping & Insurance Extra. 


We carry all major lines such as 
$.D. Systems, Cromemco, Ithaca Intersystems, North Star, 
Sanyo, ECT, TEI, Godbout, Thinker Toys, Hazeltine, IMC 
For a special cash price, telephone us. 


S-/00,ine. 
7 White Place 
Clark, N.J. 07066 
Interface ....201-382-1318 


NEW 


PRODUCTS 


RS-232-C TO RS-449 ADAPTERS 

ITM Cables division announces a series of 
RS-232-C to RS-449 type data communica- 
tion adapters. Adapters can be provided for 
RS-232 DTE to RS-449 DCE, or RD-449 DTE 
to RS-232 DCE. Each provides the proper 
electrical and mechanical interfaces between 
the “old” and the new EIA digital data 
systems. These adapters can ease the 
transition costs in computer and data 
communications. Interoperability is insured 
by compliance with ElA recommendations. 

The RS-449 type devices include both 
RS-422 balanced and RS-423 unbalanced 
lines. Both primary (37 pin) and secondary (9 
pin) channels can be supported with 
individual or combined adapters. A line of 
RS-449 cables is also available for primary 
only and combined circuits. 

Loop back plugs provide a quick way of 
checking local equipment and cabling. 
Available for RS-232 and RS-423, these loop 
back the data and necessary control lines for 
local loopback testing. An LED indicator 
shows the presence and polarity of data 
traffic (line state). Catalog, selection sheets, 
and application guide available. Shipment 
from stock in most cases. OEM and quantity 
discounts. These adapters are available 
from: Interface Technology of Maryland, 
P.O. Box 745, College Park, MD 20740. 
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LOW-COST GRAPHICS PLOTTER 

Strobe Inc. has just introduced a low cost, 
high performance digital graphics plotter. 
This new drum type plotter has a 0.004 inch 
step size, an 81/2 x11 inch paper capacity, 
accepts a wide variety of pens, and uses 
quality stepping motor. In addition, this 
model features an interactive digitizing 
mode that allows the user to enter X-Y 
coordinate data corresponding to pen loca- 
tion directly into the host computer. 

The plotter is controlled directly by the 
user's computer through two parallel output 
ports and one parallel input port. A hardware 
interface and software driver are available for 
S-100 bus machines. Also being offered is a 
plot software package providing vector 
generation and alphanumerics that runs with 
most versions of BASIC and FORTRAN. 

The price of the Model 100 Plotter is 
$680.00. Prices for software and hardware 
interfaces upon request. For further informa- 
tion contact STROBE INC., 897-5A Indepen- 
dence Ave., Mountain View, CA 94043. 


32-CHANNEL DIGITAL SYNTHESIZER 

A S-100 based digital synthesizer has been 
developed by Casheab. The device consists 
of two S-100 cards: a synthesizer card anda 
controller card. The synthesizer card is 
responsible for generating the music wave- 
forms. All parameters are loaded into the 
synthesizer from the host processor. The 
timbre waveform is specified by 1024 12-bit 
samples. The synthesizer can hold up to 16 
waveforms. The waveform selection for each 
of the 32 channels is specified by the 
processor. Frequency is specified as two 
bytes and amplitude is specified as one 
byte. The synthesizer is also capable of 
frequency modulation in which one channel 
frequency modulates a second channel. The 
host processor therefore has control over 
frequency, waveform, amplitude, and fre- 
quency modulation of each channel. The 
synthesizer is capable of additive synthesis, 
FM synthesis and direct digital synthesis. 

The controller card is responsible for 
controlling the synthesizer card, summing 
the channel waveforms and handing the 
digital-to-analog conversion. The A-to-D 
conversion system consists of a 12-bit 
multiplying DAC and a 4-bit DAC. The 4-bit 
DAC is used to supply a reference voltage for 
the 12-bit DAC. This produces a greater 
dynamic range from the DAC. 


S-100 MICROSYSTEMS 


Software on a CP/M compatible floppy 
disk is provided with the synthesizer. The 
software consists of a waveform creation 
program, a score compiling program and a 
play program. The waveform program is 
written in Basic and executes a frequency to 
time 1024 point FFT algorithm. Scores are 
written into Basic program using DATA 
statements; the program is compiled and 
the piece is played by using the play 
program. 


The 32-channel, 16 waveform synthesizer 
card (SYN-10/16) and the controller card 
(CTR-10) sell at a combined price of 
$1245.00. A 32-channel, 4-waveform (SYN- 
10/4) synthesizer and controller is also 
available at $1095.00. The manual for the 
synthesizer and controller is $5.00. 

CASHEAB, 5737 Avenida Sanchez, San 
Diego, CA 92124. (714) 277-2547. 


DPV PDP DVD ODIO DVIPS LPL POLIO 


CROMEMCO INTRODUCES 
GRAPHICS INTERFACE 


The Cromemco SDI is a high-resolution 
graphics interface designed for use in 
Cromemco computer systems. The SDI, 
displays color or black-and-white images 
with up to 756 by 484 point resolution, and 


48K of memory may be used for the display 
memory, leading to four basic modes of 
operation. 

The SDI has three separate analog output 
signals to drive the Red, Green and Blue 
guns of a high-quality RGB monitor, to 
preserve the full resolution of the picture. 
For black-and-white work any of these 
outputs can be used to drive black-and-white 
monitors. In fact, all three outputs can be 
used to display three totally different 
pictures to three different black-and-white 
monitors simultaneously. A composite 
SYNC signal is switch-selectable on any of 
these three outputs. A separate SYNC signal 
is also available. 

These SYNC signals adhere strictly to the 
RS-170 standard for the television broadcast 
industry. In addition to the SYNC signal, the 
SDI outputs all signals required to serve as 
input to a colorizer or color modulator in a 
television broadcast studio. Furthermore, 
the SDI can be synchronized to external 
television equipment through the use of an 
external composite RS-170 SYNC signal, a 
composite video signal, or external horizon- 
tal and vertical SYNC signals applied to the 
appropriate SDI inputs. 

Cromemco has also developed new 16K 
and 48K two-port memory cards for use with 
the SDI. Picture information is accessed by 
the SDI through a connector on the top of 
these cards. Use of the two-port memory for 
the display memory assures 75% to 100% 
CPU utilization, depending on the applica- 
tion software. 

The two-board SDI graphics interface 
(Model SDI) is available for $595. For 
additional information, contact Cromemco, 
Inc., 280 Bernardo Avenue, Mountain View, 
CA 94043; (415) 964-7400. 


AC POWER LINE ISOLATOR 

Severe AC power line spikes, surges, 
noises and hash are prevalent in many 
MicroProcessor installations. Operators are 
plagued with unexplained crashes, memory 
loss and program glitches. Disks, printer 
and processor often interact, aggravating the 
problem. 

ELECTRONIC SPECIALISTS’ recently 
announced SUPER ISOLATOR is designed 
to curb these severe electrical problems. 
Incorporationg heavy duty surge/spike sup- 
pressors, the SUPER ISOLATOR features 3 
individually dual-Pi filtered 3-prong AC 
sockets. Equipment interactions are elimi- 
nated and disruptive/damaging line spikes 
and hash are controlled. The SUPER 
ISOLATOR can accomodate an 1875 watt 
load, with each socket capable of handling 
1000 watts. 


Severe power line spike/surge and hash 
control is combined with interaction-free 
operation for $88.95 (Model ISO-3). SUPER 
ISOLATOR is available from: Electronic 
Specialists, Inc., 171 South Main Street, 
Natick, Massachusetts 01760. (617) 655-1532 


Get 8080/Z80 Source Code on your CP/M compatible disk 


DDB— Directory Data Base Program reads disk directories and builds a data 
base file for inquiries, find files fast, catalog your library 
COMM— Communicate with a timesharing system through your modem port! Modes are: 
terminal, file to file, (+ CRC 16), local (disk commands), FDX/HDX.... (C) $50.25 
CDIR— Comprehensive directory utility: Alphabetical list of file extents & all 
allocated disk blocks: Checks dup allocation for file integrity 
DXAM— Disk exam/update utility; For memory map video: Any drive, track, sector: 
Display or update data in ASCII, EBIDIC, HEX or user decode option.... (V)$40.20 
DGEN— Character generator for IMSAI VIO: Runs on VIO: Inputs 3K disk file & edits 
characters in a7 x 9 block character simulation: updates file (V) $40.20 
DASM— Self relocating 8080 dis-assembler: Outputs to CRT, printer & disk as .ASM 
or .PRN types: Symbol table: Symbol XREF: ASCII dump:. control s + p(C) $85.40 
GEDT— Gang editor: Single pass multi-string replacements: Your original file 
unchanged as new file is created: Wild card character can be used (C) $40.20 
CHESS— Send proof of ownership of Sargon and get complete file using CP/M keybd 
(V) $20.20 


with features such as high point resolution, 
color map selection, dual page windowing 
function, automatic area fill mode, and 
NTSC broadcast compatibility. 


and display on VIO, flashwriter or similar 80 x 24 graphic board 
PREDT— Pre-edit program will update version number maintained in program file, 


then locate and load CP/M editor (or fname ed. com) and execute. (C) $40.20 
VIDEO— Memory mapped video drivers: Z80 & 8080: Any size char/line configuration 

dynamically definable: Multi-window scroll: All cursor/Screen controls.. $40.00 
VDRAW-— Vector draw & plot for memory map video using 2 x 3 block grafic char as 

pixel grid: Call from MBASIC or XDB: Test program included (In BASIC).. $30.00 
KEYBD— Keyboard data and status input module: Simulates input latch: Parallel out 

$20.00 

SYS16— 16K ROM/“BASIC”/Assembler/Monitor/Debug/Tarbell cassette operating sys- 

tem supplied on cassette, disk or 2708 EPROM (add $180 for firmware)... $900.75 
GAMES— Incredible graphics! : Space Invaders: Target: Startrek & more each (v) $40.20 

Supplied on your disk/or ours (add $7.50) / or listings-free brochure 
Price codes = source/com: (C)= CP/M |/O:(V)= CP/M Keybd + Mem Map Video 


HAWKEYE GRAFIX, 23914 Mobile, Canoga Park, CA 91307 
(213) 348-7909 


The SDI consists of two circuit boards 
which plug directly into the S-100 bus of any 
Cromemco microcomputer system and uses 
direct memory access to display the con- 
tents of a display memory. Each pixel of the 
display may be mapped from one nybble or 
from one bit of the display memory. 
Bit-mapped or nybble-mapped mode is 
software selectable. In fact, one part of the 
picture may be displayed in one mode and 
another part in the other mode. Also, 12K or 
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Program Name: VDRAW ASM 
Hardware System: Any memory mapped 
video board with 2 x 3 Graphics: Poly- 
morphic/IMSAI VIO/ Vector G. Flashwriter 
Minimum Memory Size: 1/4 K 
Language: 8080 Assembler 
Description: These routines will control 
memory-mapped video boards providing 
graphic capabilities. They will select and 
turn on or off any pixel desired. The user 
provides only an X and Y co-ordinate 
specifying the desired pixel for plot, or the 
X-Y co-ordinates of the start and end of a 
line. The routines will locate and set (or 
reset) the desired pixel or pixels. This will 
provide a simple interface for graphics from 
higher level languages. The plot routine will 
operate at very high speed. The draw routine, 
which utilizes the plot routine to set each 
pixel required, will draw a line on a video 
board so rapidly that the user will be unable 
to detect the time difference between the 
first and last pixels being set (or reset). The 
routine assumes that each pixel is controlled 
by a bit in an area occupied by a 
memory-mapped video board. The bits 
(pixels) must be arranged in a 2 x 3 matrix 
within a given byte (character) on the board. 
The two routines together will fit less than 
256 bytes. The routines are also provided 
with two different methods for providing the 
X-Y addressing parameters. The parameters 
may be provided on the stack, or simply set 
into specified addresses. 
Release: Currently available 
Price: $30.00 
Included with price: Program source code 
and documentation plus test program writ- 
ten in Basic. 
Author: Hawkeye Grafix 
Where to purchase it: 

Hawkeye Grafix 

23914 Mobile St. 

Canoga Park, CA 91307 
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Program Name: COMM 4 
Hardware System: CP/M and RS-232 Serial 
Port with modem. 
Minimum Memory Size: 16K 
Language: 8080 assembler 
Description: Provides a comprehensive 
menu-driven communications package for 
users of CP/M operating systems linking to 
time-sharing or other CP/M systems. Termi- 
nal mode supports disk log option. Four file 
transfer modes perform auto disk paging 
without data loss, CRC-16 error retransmit, 
FDX no echo wait option, port-port/FDX/ 
HDX modem. Local functions enable disk 
DIR, read name, delete, log in, plus control 
character and console echo switch. 
Release: Now 
Price: $150 source; $75 object 
Included with price: Program and documen- 
tation. 
Author: Hawkeye Grafix 
Where to purchase it: 

Hawkeye Grafix 

23914 Mobile St. 

Canoga Park, CA 91307 


Program Name: Layout 

Hardware System: Sol/ Helios Il, Disks (1) 
Minimum Memory Size: 16K 

Language: Extended Disk BASIC 
Description: Layout saves programming 
time and effort by formatting, printing, and 
screen-printing a series of Data File Layouts. 
File produces uniform header for program 
description, and an indefinite number of 
descriptions of variables used in the data 
file. Provides space for programmer's com- 
ments. Excellent programming and refer- 
ence tool. 

Release: Now 

Price: $20, includes source on disk and 
documentation. 

Author: J. Brockway 


Where to purchase it: 
Jerry Brockway 
Suite 308, 2909 Bay to Bay 
Tampa, FL 33609. 


Program Name: WHATSIT? (Wow! How’d All 
That Stuff get In There?) [WHATSIT? is a 
trademark of Computer Headware] 

Hardware System: Any S-100 system; 
WHATSIT is available in Model NS-3 for 
North Star systems, and Model CP-2 for 
CP/M systems. 

Minimum Memory Size: 32K (Mode! NS-3), 
44K (Model CP-2). 

Language: North Star BASIC (Model NS-3), 
CBASIC-2 (Model CP-2). 

Description: WHATSIT is a self-indexing, 
cross referencing data query system. The 
program stores, indexes, and fetches free- 
format information In response to conversa- 
tional “Requests.” Typical queries range 
from “When’s Johnny’s Dental Checkup?” to 
“What's the U.N. Ambassador's Voting 
Record?” WHATSIT’s unique open-ended 
data structure evolves continuously during 
normal use, without respecifying the file. 
Unexpected new file headings are immedi- 
ately added when first mentioned in a 
Request, then remain available for future 
reference. Always spoken of as “her” in the 
160-page user's manual, WHATSIT distin- 
guishes herself by her breezy, impertinent 
repartee, including such rejoinders as “News 
to me!” when queried for information not 
currently on file, or “Never mind!” when the 
operator cancels a Request unexpectedly. 
Release: March 1978 (Model NS-3), August 
1979 (Model CP-2). 

Price: $125.00 (Model NS-3), $175.00 (Model 
CP-2). 

Included with price: Disk with 160-page 
spiral bound user’s manual. 

Author: Computer Headware, Box 14694, 
San Francisco, CA 94114. 

Where to purchase it: 


Hardhat Software 
Box 14815 
San Francisco, CA 94114 
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Program Name: muLISP-79 
Hardware System: Standard CP/M 
Minimum Memory Size: 20K 
Language: LISP language interpreter 
Description: Five man-years in the making 
and extensively tested, the muLISP-79 
Interpreter makes a truly sophisticated LISP 
system available to S-100, CP/M users. It is 
capable of supporting serious Al efforts in 
such diverse fields as robotics, game 
playing, language translation, computer 
algebra, and theorem proving. Fully integra- 
ted into CP/M, it features infinite precision 
arithmetic, flexible program control con- 
structs, an efficient garbage collector, & 
informative error messages. Most important 
for serious applications, it uses the most 
modern techniques to achieve extremely fast 
execution speeds. Please write The Soft 
Warehouse for details. We require a License 
Agreement be signed prior to shipment. 
Release: Now 
Price: $190 
Included with price: On diskette: muLISP-79 
COM file, Utility library file, Trace facility 
file, Pretty printer file, & a demo game 
program. Printed: 60 page Reference Man- 
ual, fully indexed. 
Author: Albert D. Rich 
Where to purchase it: 

The Soft Warehouse 

P.O. Box 11174 

Honolulu, Hi 96828 


Program Name: Plotter Graphics Package 
Hardware System: 8080/Z80 CP/M with 
either Houston Instruments Hiplot or 
Tektronix 40xx series terminal 
Minimum Memory Size: Depends on how 
many routines are used 
Language: Microsoft FORTRAN-80 and 
MACRO-80 
Description: Set of FORTRAN callable 
subroutines which implement the standard 
CALCOMP plot routines: PLOTS, PLOT, 
FACTOR, WHERE, SCALE, LINE, SYMBOL, 
NUMBER and AXIS. Also includes several 
additional routines to support log and 
semi-log plots, with optional grids. All 
plotting is done through one simple “driver” 
routine which may be developed for any 
particular plotter. Drivers currently exist for 
Houston Instrument Hiplot and Tektronix 
40xx series terminal (or equivalent). Entire 
ASCII character set is supported by SYMBOL 
routine. Provided as a ‘User Library’ from 
which externals may be satisfied at link 
time. Source code for both drivers are 
included. Several demonstration programs 
are included on the disk. 
Release: Currently available 
Price: Library and source for drivers; 
$100.00 Source for entire package: $1000.00 
Included with price: 8” 3740 CP/M style 
diskette containing REL files for each 
routine, source for drivers, pre-built library 
for Hiplot (via S102 port), and several sample 
programs using package. Enclosed manual 
describes calling arguments and operation 
of each routine. Coupon good for $100 off 
list price of Hiplot, from the Byte Shop of 
Columbia, S.C. 
Author: Lawrence E. Hughes 
Where to purchase it: 

Mycroft Labs 

P.o. Box 6045 

Tallahassee, FL 32301 
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Your CP/M system just isn’t worth 
its salt...until it’s been through 
a night like this. 


The Pirate stands ready to challenge your CP/M system to a 
battle of wit and endurance. As you traverse uncharted lands and 
seas, you'll meet up with wild animals, magical beings and a smart 
alec parrot. Adventureland and Pirate Adventure are two of the most 
mind-bending game simulations you'll ever encounter. (CS-9003) 
$24.95. 


Original Adventure is an undisputed classic. The treasures you 
seek are hidden in underground caverns. All you have to do is find 
them. It’s easy...just overcome a giant clam, nasty little dwarves 
and other deathly perils. This game is bi-lingual so, to make it really 
a cinch, just type in “GO FRANCE” and the characters will speak 
and understand only French. (CS-9004) $24.95. 


The Basic Games Library features 190 top-notch simulations, 
battles and strategy games from the celebrated Basic Computer 
Games Book and its sequel, More Basic Computer Games. Volume 
| (CS-9001) and Volume Ii (CS-9006) include Super Star Trek, 
Slalom, and Checkers. Each disk is $24.95. Both disks and the 
Basic Computer Games Book are available for only $50.00 
(CS-9000). 


Volume Ill (CS-9005) and Volume IV (CS-9006) feature Yahtzee, 
Tennis, Wumpus and Grand Prix. The disks are $24.95 each. Both 
disks and the More Basic Computer Games Book are $50.00 
(CS-9007). The entire four disk collection also includes both big 
games books, edited by David Ahl, and is $95.00 (CS-9008). All are 
on 8” disks, require 48K and Microsoft Basic. 


Your local computer store should carry Creative Computing 
Software. If your favorite retailer does not carry the software you 
need, have him call in your order to 800-631-8112. Or, you can order 
directly from Creative Computing. Write to Creative Computing 
Software, Dept. AHGG, P.O. Box 789-M, Morristown, NJ 07960. 
Include $1.00 for postage and handling. For faster service, call in 
your bank order toll free to 800-631-8112. 
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Program Name: BDS C Compiler 

Hardware System: Anything supporting 
CP/M 

Minimum Memory Size: 32K or more...the 
more, the better 

Language: 8080 Machine code for 8080's and 
Z80's 

Description: Compiles a good subset of 
UNIX C directly into relocatable load 
modules; a linker is provided to create the 
-COM files. Emphasis on speed and simpli- 
city of compilation. The “C” language is 
aesthetic and concise—very powerful, yet 
relatively “low level,” allowing the program- 
mer to do just about anything. The compiler 
has been totally engineered to interact and 
co-exist with CP/M. It is comprised of two 
main segments, each about 10K, which 
operate in sequence to do a compilation. 
Instant support is always available by phone 
or mail from the author. No elaborate 
liscensing BS required. 

Release: Currently available 

Price: $125.00 ($20 for documentation 
alone). 


Included with price: Compiler, Linker, 
Library Manager, Libraries containing over 
75 utility and standard I/O functions, over 
150K of sample sources, utility programs, a 
telecommunications program and more. 
Author: Leor Zolman 

Where to purchase it: 


Lifeboat Associates 
2248 Broadway 
New York, NY 10024 


Program Name: INFORMATION MASTER 
Hardware System: 8080 or Z-80 with two or 
more disk drives 
Minimum Memory Size: 32K 
Language: CONVERS, a language similar to 
Forth and Stoic (note: no additional lan- 
guage package Is required to run) 
Description: Information Master is an infor- 
mation retrieval program for CP/M and 
CP/M compatible disk operating systems. 
The user creates free format text entries 
using his familiar text editor, setting off 
keywords or phrases with special character 
sequences. The program scans this text, 
creates a compact index, and builds a 
dictionary of all keywords encountered. 
Searches are made using single keywords or 
combinations of keywords in “and” and “or” 
clauses. A search of a data base with 500 
entries typically takes about 12-15 seconds. 
After matches have been found, all or part of 
the original text is recovered for listing, 
viewing, or copying to a new disk file. 
Distributed on 8” single density floppy and 
some 5” formats, write for available formats. 
Release: Now 
Price: $37.50 
Included with price: Information Master 
program with demonstration data base and 
configuration customizing program on disk. 
User’s Manual. 
Author: William B. Brogden 
Where to purchase It: 

Island Cybernetics 

P.O. Box 208 

Port Aransas, TX 78373 
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Program Name: HAM Radio DX Package 
Hardware System: 8080/Z80 8 inch CP/M 
Minimum Memory Size: 24K 
Language: Machine 
Description: The Package provides op- 
erating information for the HAM Dxer. This 
includes directions (compass heading), 
bearings (degrees), distance (miles, kilomet- 
ers, hops), and time differential to the DX 
station. A paginated listing by prefix is 
produced. The programs are run on an 
interactive basis, simply by typing the COM 
file as a CP/M command. No RAM is taken 
by the data file as the data is called directly 
from the disk. The data base files can be 
edited to any length by the user. 
Release: Now 
Price: $22 
Included with price: .COM files, 370 country 
data file, 50 state data file, .improved 
directory utility. All on 8 inch disk. 
Author: Ronald J. Finger 
Where to purchase it: 

FICOMP 

3017 Talking Rock Drive 

Fairfax, VA 22031 


Program Name: Video ASM 
Hardware System: Any memory mapped 
video board 
Minimum Memory Size: 1K 
Language: 8080 Assembler 
Description: This video driver presents the 
ultimate in flexibility. The driver can be 
rommed if the user desires. It requires about 
3/4K, and fits easily in a 2708 EPROM. The 
program will drive any size video board, with 
any line width or number of lines, without 
revision. The configuration and address of 
the video board are parameters provided at 
run time. It is quite capable of driving several 
different video boards, or several different 
windows on the same board, simultaneous- 
ly. All parameters are stored in an 18-byte 
area. To drive multiple displays simulta- 
neously, the user need only switch in or out 
the 18-byte parameter table desired. All 
control characters are stored in a second 
table. These are moved from the program 
body to a second table area, so they are 
subject to execution time revision by the 
user, even when the driver resides in ROM. 
When used in conjunction with an IMSAI VIO 
or Vectorgraphilc Flashwriter li, non- 
displayed 128 bytes of the VIO RAM to save 
all tables and variables. This driver offers 
such features as software scrolling, full 
cursor controls (up, down, left, right), screen 
clear, line erase, and user definable cursor 
character. It can be called with a single byte 
of data to be displayed, the address of a 
string to be displayed, or the address of a 
string to be displayed some variable number 
of times (repeat). The “video driver will 
protect the contents of all registers during 
every call. They will be returned with their 
original contents. 
Release: Currently available 
Price: $40.00 
Included with price: Program source code 
and documentation. 
Author: Hawkeye Grafix 
Where to purchase It: 

Hawkeye Grafix 

23914 Mobile St. 

Canoga Park, CA 91307 
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S-100 MICROSYSTEMS’ Bugs 


In the March/April issue (Vol 1/ No 2) there 
were some errors in the article titled “North 
Star Topics.” They are as follows: 

1) On pages 10 and 12 the order of 
paragraphs is incorrect. On page 10, from 
the end of column 1 proceed to page 12, 
column 1, line 3 of the text. From the end of 
the listing on page 12, column 2 proceed to 
page 10, column 2, line 2. Lastly, from page 
12, column 1, line 17 proceed to page 10, 
column 2, line1. 

2) On page 10, column 2, line 2 of the 
program listing there should be a space after 
“CALL.” Thus it should read: “CALL 
PRTBLK.” 

3) On page 12, column 2, line: the ORG 
should be “24C3H” and not “243CH,” as 
shown. 

We would like to thank Charles Stevenson 
for calling the errors to our attention. 


ADVERTISER | 
Advertiser cain 


Ackerman Digital System 
Budget-info Systems... 
Computer Design Labs. 
abl og Mart of New Jersey. 
Creative Sor eg Software.. 
Digital cogs ics Systems....... 
Electronic Control Technology 
Electronic Specialists........... 
Godbout Electronics. 
Hawkeye Grafix..... 
Interface Technolog 
Ithaca Intersystems 
Konan Corp.......... 
Leapac............... 
Lifeboat _Associates.......... 

Morrow Design/Thinker Toys.. 
Personal Computing-80..............:cccesseeeeeeeeees 45 
Potomac Micro-Magic.. 
Quasar Data Products 


S-100 MICROSYSTEMS 


THE ONLY MAGAZINE BY AND FOR S-100 SYSTEM USERS! 
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MICROSYSTEMS 


At last there is a magazine written exclusively for S-100 system users. No 
other publication is devoted to supporting S-100 system users. No longer 
will you have to hunt through other magazines for an occasional S-100, 
CP/M* or PASCAL article. Now find it all in one publication. Find it in $-100 
MICROSYSTEMS. 


Every issue of S-400 MICROSYSTEMS brings you the latest in the $-100 
world. Articles on applications, tutorials, software development, letters to 
the editor, newsletter columns, book reviews, new products, etc. Material 
to keep you on top of the ever changing microcomputer scene. 
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CompuPro S-100 Motherboards: 
esigned for the Future, 


AVAILABLE NOW 


You won't have to throw away these motherboards when you upgrade your system — they are specifically designed to 
handle the new generation of 5 to 10 MHz CPUs coming on line, as well as present day 2 and 4 MHz systems. Faraday shielding between all bus 
signal lines minimizes crosstalk; additionally, when signal lines cross each other on opposite sides of the board, they do so at a 90 degree angle to 
minimize any chance of stray coupling. You’d expect the company that pioneered active termination to include true active termination, but we've 
gone one step better by splitting the termination load between each end of every bus line. And you won't have to junk your present computer box 
with our new motherboards — all sizes fit Godbout, Vector, Imsai, TEI, and similar enclosures. 

These high-performance motherboards are available i in “unkit” form (edge connectors and termination resistors pre-soldered in 


place for easy assembly), or fully assembled and ready to go. 


#CK-024 20 slot motherboard with edge connectors — unkit $174, assm $214 
#CK-025 12 slot motherboard with edge connectors — unkit $129, assm $169 
#CK-026 6 slot motherboard with edge connectors — unkit $89, assm $129 


y NOTE: Most CompuPro boards are available | in in-unkit! form m (sockets, bypass caps pre-soldered in place), assembled, or ff 
; qualified under the Certified System Component (CSC) high-reliability program (200 hour burn-in, more). CSC memory J 
boards run at 8 MHz, are guaranteed to run with 6 MHz Z-80s, and draw even Jess ss power than standard models. i 


CAREFUL . .. NOT ALL S-100 CPU BOARDS ARE CREATED EQUAL! 


You'll appreciate the extras that go into our CPU boards; take IEEE spec compatibility, for example. While others may claim compatibility, we meet all timing specs — and 


we'll be glad to send you timing diagrams for our CPUs to prove it (just include an SASE). You don’t have to compromise on another “me-too” board... 


THE ENHANCED/ADVANCED Z-80A S-100 CPU BOARD 


Superior design in an IEEE-compatible board gives the power for future expansion as well as 
system flexibility. Includes all standard Z-80A features along with power on jumpi/clear, on- 
board fully maskable interrupts for interrupt-driven systems, selectable automatic wait state 
insertion, provision for adding up to 8K of on-board EPROM, 4 MHz operation, and IEEE 
compatible 16/24 bit extended addressing. $225 unkit, $295 assm, $395 CSC. 


THE COMPUPRO “RAM” SERIES OF STATIC MEMORY 


Recommended for commercial, industrial, and scientific applications. 4/5 MHz 
standard operation, no dynamic timing problems, meets all IEEE specifications, 
low power/high speed chips used throughout, extensive bypassing, careful ther- 
mal design. 


S-100 STANDARD MEMORY assm CSC 
BRAN A oot eee eater ereaeceeccure ae eerie $189 $239 
16K RAM X-16. . $379 $479 
24K RAM XX-24.. $499 $599 
SIKIRAMIX-S2 sree eer aioe rattan coc aa eee diaten after $689 $789 


S-100 EXTENDED ADDRESSING MEMORY 
(16/24 address lines; addressable on 4K boundaries) 
WGK BRANUNV Gcccccsceesccctereencnes pe eeeeeeneeeeee $299 $349 $429 


S-100 BANK SELECT MEMORY 


(Cromemco etc. compatible; addressable on 4K boundaries) 


16K RAM XIIA-16 $419 $519 

24K RAM XIIA-24. . $539 $649 

32K RAM XIIIA-32 $729 $849 

SBC/BLC MEMORY 

SAK RAMA oritesaietercssies cas ae piatacisinaniele wears aaa a Foiaies na n/a $1050 
OTHER S-100 BUS PRODUCTS 

Godbout Computer Enclosure. ........+..$289 desktop, $329 rack mount 

Active Terminator Board............+.+-+$34.50 kit 

2708 EPROM Board (less EPROMs)......-. $85 unkit 

Memory Manager Board...............- $59 unkit, $85 assm, $100 CSC 

2S “Interfacer I’ /O Board..............- $199 unkit, $249 assm, $324 CSC 

3P Plus S “Interfacer II” /O Board.......... $199 unkit, $249 assm, $324 CSC 

Mullen Extender Board.............. $59 kit 


Mullen Relay/Opto-Isolator Control Board. . $129 kit, $179 assm 


Vector 8800V S-100 Prototyping Board... . . $19.95 i] 


TERMS: Cal res add tax. Allow 5% for shipping, excess refunded. VISA® /Mastercard® orders ($25 
min) call (415) 562-0636, 24 hrs. COD OK with street address for UPS. Prices good through cover 
month of magazine. | 


ompuPro 


Bldg. 725, Oakland Airport, CA 94614 


choose CompuPro. 


NEW! S-100 DUAL PROCESSOR CPU BOARD 


The Dual Processor Board is here... and CPU boards will never be the same again. 8088 
CPU gives true 16 bit power with a standard 8 bit S-100 bus; an 8085 gives compatibility with 
CP/M and 8080 software, Accesses up to 16 megabytes of memory, meets all IEEE S-100 bus 
specifications, runs 8085 and 8086 code in your existing mainframe as well as Microsoft 8086 
BASIC and Sorcim PASCAL/M™, runs at 5 MHz for speed as well as power, and is built to the 
same stringent standards that have established our leadership in S-100 bus components. In- 
troductory prices: $385 unkit, $495 assm, $595 CSC. 


8085 single processor version of above: introductory prices $235 unkit, $325 assm, $425 


SPECTRUM S-100 COLOR GRAPHICS BOARD 


Includes 8K of IEEE-compatible static RAM; full duplex bidirectional parallel I/O port for 
keyboard, joystick, etc. interface; and 6847-based graphics generator that can display all 
64 ASCII characters. 10 modes of operation, from alphanumeric/semi-graphics in 8 colors 
to ultra-dense 256 x 192 full graphics. 75 Ohm RS-170 line output and video output for 
use with FCC approved modulators. Introductory prices: $339 unkit, $399 assm, $449 
CSC. Don’t settle for black and white graphics or stripped-down color boards; specify the 
CompuPro Spectrum. 

Want graphics software? Sublogic’s 2D Universal Graphics Interpreter (normally $35) is 
yours for $25 with any Spectrum board purchase. 


16K DYNAMIC RAM SPECIAL: 8/$59! 


Expand memory in TRS-80* -I and -Il, as well as machines made by Apple, Exidy, Heath 
H89, newer PETs, etc, Low power, high speed (4 MHz). Add $3 for 2 dip shunts plus 
TRS-80* conversion instructions. Limited quantity. Tks-80 is a trademark of the Tandy Corporation 


PASCAL/M™ + MEMORY SPECIAL 


PASCAL — easy to learn, easy to apply — can give a microcomputer with CP/M more 
power than many minis. We supply a totally standard Wirth PASCALIM™ 8" diskette by 
Sorcim, with manual, for $150 with the purchase of any memory board. Specify Z-80 or 
8080/8085 version. PASCALIM™ available separately for $175; manual available 
separately for $10. 


COMING SOON! 


We've got a new board coming up that’s so versatile some of our 
people have nicknamed it the “smorgasboard”: it includes (among 
other things) a real-time clock, interval timer, interrupt controllers, 
and math processor. We've also got a board in the works that greatly 

HI} enhances the throughput and performance of multi-user (2 or more 

i) terminal) systems, by assuming a lot of the overhead functions nor- 

i) mally handled by the main CPU. Look for more details on these useful 
and functional products in the months ahead, or check with finer 
computer stores for additional information on these and other Com- 
puPro products. 


from GCE 
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